![]() ![]() | ![]() |
version 1.4, 2000/08/22 05:04:28 | version 1.6, 2000/09/25 04:33:38 | ||
---|---|---|---|
|
|
||
* 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.5 2000/09/23 05:45:49 noro Exp $ | ||
*/ | */ | ||
#if defined(VISUAL) | #if defined(VISUAL) | ||
#if defined(VISUAL_LIB) | #if defined(VISUAL_LIB) | ||
|
|
||
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}, | ||
|
|
||
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]; | ||
|
|
||
char *argv[1]; | char *argv[1]; | ||
int n; | int n; | ||
char *d; | char *d; | ||
char hostname[BUFSIZ],title[BUFSIZ]; | |||
extern char displayname[]; | extern char displayname[]; | ||
extern int do_server_in_X11; | extern int do_server_in_X11; | ||
|
|
||
else | else | ||
do_server_in_X11 = 0; | do_server_in_X11 = 0; | ||
} | } | ||
gethostname(hostname, BUFSIZ); | |||
sprintf(title,"Asir debugger:%s",hostname); | |||
if ( displayname[0] ) { | if ( displayname[0] ) { | ||
argv[0] = 0; | argv[0] = 0; | ||
XtToolkitInitialize(); | XtToolkitInitialize(); | ||
app_con = XtCreateApplicationContext(); | app_con = XtCreateApplicationContext(); | ||
XtAppAddActions(app_con,actions_table, XtNumber(actions_table)); | XtAppAddActions(app_con,actions_table, XtNumber(actions_table)); | ||
XtAppSetFallbackResources(app_con,fallback); | XtAppSetFallbackResources(app_con,fallback); | ||
display = XtOpenDisplay(app_con,displayname,"ox_asir_debug_window","ox_asir_debug_window", | display = XtOpenDisplay(app_con,displayname,title,title, | ||
options,XtNumber(options),&argc,argv); | options,XtNumber(options),&argc,argv); | ||
toplevel = XtAppCreateShell(0,"ox_asir_debug_window",applicationShellWidgetClass, | toplevel = XtAppCreateShell(0,title,applicationShellWidgetClass, | ||
display,0,0); | display,0,0); | ||
XtSetArg(arg[0],XtNiconName,"ox_asir_debug_window"); | n = 0; | ||
XtSetArg(arg[n],XtNiconName,title); n++; | |||
XtSetArg(arg[n], XtNwidth, 360); 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++; |