| version 1.3, 2000/08/21 08:31:48 | 
version 1.5, 2000/09/23 05:45:49 | 
 | 
 | 
|   * shall be made on your publication or presentation in any form of the | 
  * shall be made on your publication or presentation in any form of the | 
|   * results obtained by use of the SOFTWARE. | 
  * results obtained by use of the SOFTWARE. | 
|   * (4) In the event that you modify the SOFTWARE, you shall notify FLL by | 
  * (4) In the event that you modify the SOFTWARE, you shall notify FLL by | 
|   * e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification | 
  * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification | 
|   * for such modification or the source code of the modified part of the | 
  * for such modification or the source code of the modified part of the | 
|   * SOFTWARE. | 
  * SOFTWARE. | 
|   * | 
  * | 
 | 
 | 
|   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, | 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, | 
|   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. | 
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. | 
|   * | 
  * | 
|   * $OpenXM: OpenXM_contrib2/asir2000/parse/xdeb.c,v 1.2 2000/02/08 04:47:12 noro Exp $ | 
  * $OpenXM: OpenXM_contrib2/asir2000/parse/xdeb.c,v 1.4 2000/08/22 05:04:28 noro Exp $ | 
|  */ | 
 */ | 
|  #if defined(VISUAL) | 
 #if defined(VISUAL) | 
|  #if defined(VISUAL_LIB) | 
 #if defined(VISUAL_LIB) | 
| Line 115  static String fallback[] = { | 
 
  | 
| Line 115  static String fallback[] = { | 
 
 
 | 
|   | 
  | 
|  static void Done(); | 
 static void Done(); | 
|  static void SetSelected(); | 
 static void SetSelected(); | 
|   | 
 static void SetDismiss(); | 
|   | 
  | 
|  static XtActionsRec actions_table[] = { | 
 static XtActionsRec actions_table[] = { | 
|          {"done",Done}, | 
         {"done",Done}, | 
| Line 152  XtPointer cld,cad; | 
 
  | 
| Line 153  XtPointer cld,cad; | 
 
 
 | 
|          XtSetValues(cmdwin, arg, 1); | 
         XtSetValues(cmdwin, arg, 1); | 
|  } | 
 } | 
|   | 
  | 
|   | 
 static void SetDismiss(w,cld,cad) | 
|   | 
 Widget w; | 
|   | 
 XtPointer cld,cad; | 
|   | 
 { | 
|   | 
         Arg             arg[5]; | 
|   | 
         char *cmd; | 
|   | 
  | 
|   | 
         done = 1; | 
|   | 
         cmd = XawDialogGetValueString(cmdwin); | 
|   | 
         strcpy(debug_cmd,"quit"); | 
|   | 
         XtSetArg(arg[0], XtNvalue, ""); | 
|   | 
         XtSetValues(cmdwin, arg, 1); | 
|   | 
 } | 
|   | 
  | 
|  init_cmdwin() | 
 init_cmdwin() | 
|  { | 
 { | 
|          Arg             arg[5]; | 
         Arg             arg[5]; | 
 | 
 | 
|                          options,XtNumber(options),&argc,argv); | 
                         options,XtNumber(options),&argc,argv); | 
|                  toplevel = XtAppCreateShell(0,"ox_asir_debug_window",applicationShellWidgetClass, | 
                 toplevel = XtAppCreateShell(0,"ox_asir_debug_window",applicationShellWidgetClass, | 
|                          display,0,0); | 
                         display,0,0); | 
|                  XtSetArg(arg[0],XtNiconName,"ox_asir_debug_window"); | 
                 n = 0; | 
|   | 
                 XtSetArg(arg[n],XtNiconName,"ox_asir_debug_window"); n++; | 
|   | 
                 XtSetArg(arg[n], XtNwidth, 200); n++; | 
|                  mainwin = XtCreatePopupShell("shell",topLevelShellWidgetClass, | 
                 mainwin = XtCreatePopupShell("shell",topLevelShellWidgetClass, | 
|                          toplevel,arg,1); | 
                         toplevel,arg,n); | 
|          /* | 
         /* | 
|           *      Command line | 
          *      Command line | 
|           */ | 
          */ | 
|                  cmdwin = XtCreateManagedWidget("cmdwin", dialogWidgetClass, | 
                 cmdwin = XtCreateManagedWidget("cmdwin", dialogWidgetClass, | 
|                          mainwin, NULL, 0); | 
                         mainwin, NULL, 0); | 
|                  XawDialogAddButton(cmdwin,"OK",SetSelected,"OK"); | 
                 XawDialogAddButton(cmdwin,"Execute",SetSelected,"Execute"); | 
|   | 
                 XawDialogAddButton(cmdwin,"Dismiss",SetDismiss,"Dismiss"); | 
|                  n = 0; | 
                 n = 0; | 
|                  XtSetArg(arg[n], XtNlabel, "Command : "); n++; | 
                 XtSetArg(arg[n], XtNlabel, "Command : "); n++; | 
|                  XtSetArg(arg[n], XtNvalue, ""); n++; | 
                 XtSetArg(arg[n], XtNvalue, ""); n++; |