| version 1.4, 2000/08/22 05:04:28 |
version 1.5, 2000/09/23 05:45:49 |
|
|
| * 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.3 2000/08/21 08:31:48 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++; |