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.4 1996/12/11 20:58:24 bostic Exp $ (Berkeley) $Date: 1996/12/11 20:58:24 $";
  14 #endif /* not lint */
  15
  16 #include <X11/X.h>
  17 #include <X11/Intrinsic.h>
  18 #include <Xm/MessageB.h>
  19
  20 #include "m_motif.h"
  21 #include "m_extern.h"
  22
  23 \f
  24 void    vi_fatal_message( parent, str )
  25 Widget  parent;
  26 String  str;
  27 {
  28     Widget      db = XmCreateErrorDialog( parent, "Fatal", NULL, 0 );
  29     XmString    msg = XmStringCreateSimple( str );
  30
  31     XtVaSetValues( XtParent(db),
  32                    XmNtitle,            "Fatal",
  33                    0
  34                    );
  35     XtVaSetValues( db,
  36                    XmNmessageString,    msg,
  37                    0
  38                    );
  39     XtAddCallback( XtParent(db), XmNpopdownCallback, __vi_cancel_cb, 0 );
  40
  41     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_CANCEL_BUTTON ) );
  42     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_HELP_BUTTON ) );
  43
  44     __vi_modal_dialog( db );
  45
  46     exit(0);
  47 }
  48
  49 \f
  50 void    vi_info_message( parent, str )
  51 Widget  parent;
  52 String  str;
  53 {
  54     static      Widget  db = NULL;
  55     XmString    msg = XmStringCreateSimple( str );
  56
  57     if ( db == NULL )
  58         db = XmCreateInformationDialog( parent, "Information", NULL, 0 );
  59
  60     XtVaSetValues( XtParent(db),
  61                    XmNtitle,            "Information",
  62                    0
  63                    );
  64     XtVaSetValues( db,
  65                    XmNmessageString,    msg,
  66                    0
  67                    );
  68     XtAddCallback( XtParent(db), XmNpopdownCallback, __vi_cancel_cb, 0 );
  69
  70     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_CANCEL_BUTTON ) );
  71     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_HELP_BUTTON ) );
  72
  73     __vi_modal_dialog( db );
  74 }