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.7 2001/06/25 15:19:27 skimo Exp $ (Berkeley) $Date: 2001/06/25 15:19:27 $";
  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(Widget parent, String str)
  34 {
  35     Widget      db = XmCreateErrorDialog( parent, "Fatal", NULL, 0 );
  36     XmString    msg = XmStringCreateSimple( str );
  37
  38     XtVaSetValues( XtParent(db),
  39                    XmNtitle,            "Fatal",
  40                    0
  41                    );
  42     XtVaSetValues( db,
  43                    XmNmessageString,    msg,
  44                    0
  45                    );
  46     XtAddCallback( XtParent(db), XmNpopdownCallback, __vi_cancel_cb, 0 );
  47
  48     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_CANCEL_BUTTON ) );
  49     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_HELP_BUTTON ) );
  50
  51     __vi_modal_dialog( db );
  52
  53     exit(0);
  54 }
  55
  56 \f
  57 void    vi_info_message(Widget parent, String str)
  58 {
  59     static      Widget  db = NULL;
  60     XmString    msg = XmStringCreateSimple( str );
  61
  62     if ( db == NULL )
  63         db = XmCreateInformationDialog( parent, "Information", NULL, 0 );
  64
  65     XtVaSetValues( XtParent(db),
  66                    XmNtitle,            "Information",
  67                    0
  68                    );
  69     XtVaSetValues( db,
  70                    XmNmessageString,    msg,
  71                    0
  72                    );
  73     XtAddCallback( XtParent(db), XmNpopdownCallback, __vi_cancel_cb, 0 );
  74
  75     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_CANCEL_BUTTON ) );
  76     XtUnmanageChild( XmMessageBoxGetChild( db, XmDIALOG_HELP_BUTTON ) );
  77
  78     __vi_modal_dialog( db );
  79 }