motif_l/m_prompt.c

   1 /*-
   2  * Copyright (c) 1996
   3  *      Rob Zimmermann.  All rights reserved.
   4  * Copyright (c) 1996
   5  *      Keith Bostic.  All rights reserved.
   6  *
   7  * See the LICENSE file for redistribution information.
   8  */
   9
  10 #include "config.h"
  11
  12 #ifndef lint
  13 static const char sccsid[] = "$Id: m_prompt.c,v 8.6 1996/12/18 10:26:59 bostic Exp $ (Berkeley) $Date: 1996/12/18 10:26:59 $";
  14 #endif /* not lint */
  15
  16 #include <sys/types.h>
  17 #include <sys/queue.h>
  18
  19 #include <X11/X.h>
  20 #include <X11/Intrinsic.h>
  21 #include <Xm/MessageB.h>
  22
  23 #include <bitstring.h>
  24 #include <stdio.h>
  25 #include <stdlib.h>
  26 #include <string.h>
  27
  28 #include "../common/common.h"
  29 #include "../ipc/ip.h"
  30 #include "m_motif.h"
  31
  32 \f
  33 void    vi_fatal_message( parent, str )
  34 Widget  parent;
  35 String  str;
  36 {
  37     Widget      db = XmCreateErrorDialog( parent, "Fatal", NULL, 0 );
  38     XmString    msg = XmStringCreateSimple( str );
  39
  40     XtVaSetValues( XtParent(db),
  41                    XmNtitle,            "Fatal",
  42                    0
  43                    );
  44     XtVaSetValues( db,
  45                    XmNmessageString,    msg,
  46                    0
  47                    );
  48     XtAddCallback( XtParent(db), XmNpopdownCallback, __vi_cancel_cb, 0 );
  49
  50     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_CANCEL_BUTTON ) );
  51     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_HELP_BUTTON ) );
  52
  53     __vi_modal_dialog( db );
  54
  55     exit(0);
  56 }
  57
  58 \f
  59 void    vi_info_message( parent, str )
  60 Widget  parent;
  61 String  str;
  62 {
  63     static      Widget  db = NULL;
  64     XmString    msg = XmStringCreateSimple( str );
  65
  66     if ( db == NULL )
  67         db = XmCreateInformationDialog( parent, "Information", NULL, 0 );
  68
  69     XtVaSetValues( XtParent(db),
  70                    XmNtitle,            "Information",
  71                    0
  72                    );
  73     XtVaSetValues( db,
  74                    XmNmessageString,    msg,
  75                    0
  76                    );
  77     XtAddCallback( XtParent(db), XmNpopdownCallback, __vi_cancel_cb, 0 );
  78
  79     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_CANCEL_BUTTON ) );
  80     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_HELP_BUTTON ) );
  81
  82     __vi_modal_dialog( db );
  83 }