dist/nvi/motif_l/m_prompt.c

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