Modified tkcon and rewrote the exit routine to make sure that

tkcon writes the history file before it quits, and that the
history file is unique to qrouter.

1 files changed, 0 insertions, 9 deletions

diff --git a/graphics.c b/graphics.c
index f3dfbf2..044278b 100644
--- a/graphics.c
+++ b/graphics.c
@@ -671,15 +671,6 @@ int GUI_init(Tcl_Interp *interp)
 
 /*----------------------------------------------------------------*/
 
-int QuitCallback(ClientData clientData, Tcl_Interp *interp,
-	int objc, Tcl_Obj *objv[])
-{
-   exit(0);
-   return TCL_OK;	// Statement not reached
-}
-
-/*----------------------------------------------------------------*/
-
 static void
 load_font(XFontStruct **font_info)
 {