===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/xdeb.c,v
retrieving revision 1.3
retrieving revision 1.6
diff -u -p -r1.3 -r1.6
--- OpenXM_contrib2/asir2000/parse/xdeb.c	2000/08/21 08:31:48	1.3
+++ OpenXM_contrib2/asir2000/parse/xdeb.c	2000/09/25 04:33:38	1.6
@@ -23,7 +23,7 @@
  * shall be made on your publication or presentation in any form of the
  * results obtained by use of the SOFTWARE.
  * (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
  * SOFTWARE.
  * 
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * 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.5 2000/09/23 05:45:49 noro Exp $ 
 */
 #if defined(VISUAL)
 #if defined(VISUAL_LIB)
@@ -115,6 +115,7 @@ static String fallback[] = {
 
 static void Done();
 static void SetSelected();
+static void SetDismiss();
 
 static XtActionsRec actions_table[] = {
 	{"done",Done},
@@ -152,6 +153,20 @@ XtPointer cld,cad;
 	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()
 {
 	Arg		arg[5];
@@ -159,6 +174,7 @@ init_cmdwin()
 	char *argv[1];
 	int n;
 	char *d;
+	char hostname[BUFSIZ],title[BUFSIZ];
 	extern char displayname[];
 	extern int do_server_in_X11;
 
@@ -169,25 +185,30 @@ init_cmdwin()
 		else
 			do_server_in_X11 = 0;
 	}
+	gethostname(hostname, BUFSIZ);
+	sprintf(title,"Asir debugger:%s",hostname);
 	if ( displayname[0] ) {
 		argv[0] = 0;
 		XtToolkitInitialize();
 		app_con = XtCreateApplicationContext();
 		XtAppAddActions(app_con,actions_table, XtNumber(actions_table));
 		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);
-		toplevel = XtAppCreateShell(0,"ox_asir_debug_window",applicationShellWidgetClass,
+		toplevel = XtAppCreateShell(0,title,applicationShellWidgetClass,
 			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,
-			toplevel,arg,1);
+			toplevel,arg,n);
 	/*
 	 *	Command line
 	 */
 		cmdwin = XtCreateManagedWidget("cmdwin", dialogWidgetClass,
 			mainwin, NULL, 0);
-		XawDialogAddButton(cmdwin,"OK",SetSelected,"OK");
+		XawDialogAddButton(cmdwin,"Execute",SetSelected,"Execute");
+		XawDialogAddButton(cmdwin,"Dismiss",SetDismiss,"Dismiss");
 		n = 0;
 		XtSetArg(arg[n], XtNlabel, "Command : "); n++;
 		XtSetArg(arg[n], XtNvalue, ""); n++;