Thu Jun 4 18:31:53 1998 Martin M. Hunt <hunt@cygnus.com>

	* gdbtk.c (gdbtk_init): Initialize tkTable.

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index fbc69f62cdb1526892e336407a0e0faf49c0422e..5372df0ea49f6034ede56caffce3c3eca41f28c3 100644 (file)
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,3 +1,7 @@
+Thu Jun  4 18:31:53 1998  Martin M. Hunt  <hunt@cygnus.com>
+
+       * gdbtk.c (gdbtk_init): Initialize tkTable.
+
 Thu Jun  4 10:15:03 1998  Elena Zannoni  <ezannoni@kwikemart.cygnus.com>
 
        * gdbtk.c: merged:

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index e99f3390c824ade300f33a9c45aa2e356bf52f95..21222fe6086025df5214af469dcd1c23caf44947 100644 (file)
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -82,6 +82,8 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #undef SIOCSPGRP
 #endif
 
+extern int Tktable_Init PARAMS ((Tcl_Interp *interp)); 
+
 static int No_Update = 0;
 static int load_in_progress = 0;
 static int in_fputs = 0;
@@ -2244,6 +2246,11 @@ gdbtk_init ( argv0 )
   if (Tix_Init(interp) != TCL_OK)
     error ("Tix_Init failed: %s", interp->result);
 
+  if (Tktable_Init(interp) != TCL_OK)
+    error ("Tktable_Init failed: %s", interp->result);
+  Tcl_StaticPackage(interp, "Tktable", Tktable_Init,
+                   (Tcl_PackageInitProc *) NULL);  
+  
 #ifdef __CYGWIN32__
   if (ide_create_messagebox_command (interp) != TCL_OK)
     error ("messagebox command initialization failed");