*** gdb/gdbtk.c.old	Wed Aug 28 13:16:53 1996
--- gdb/gdbtk.c	Wed Aug 28 13:18:40 1996
***************
*** 1102,1117 ****
--- 1102,1123 ----
    if (!interp)
      error ("Tcl_CreateInterp failed");
  
+ #if this_function_is_really_really_obsolete
    mainWindow = Tk_CreateMainWindow (interp, NULL, "gdb", "Gdb");
  
    if (!mainWindow)
      return;			/* DISPLAY probably not set */
+ #endif
  
    if (Tcl_Init(interp) != TCL_OK)
      error ("Tcl_Init failed: %s", interp->result);
  
    if (Tk_Init(interp) != TCL_OK)
      error ("Tk_Init failed: %s", interp->result);
+ 
+ #if 1 /* do it like this now */
+   mainWindow = Tk_MainWindow(interp);
+ #endif
  
    Tcl_CreateCommand (interp, "gdb_cmd", call_wrapper, gdb_cmd, NULL);
    Tcl_CreateCommand (interp, "gdb_loc", call_wrapper, gdb_loc, NULL);
