From 94a6f14fa4b66a7f3d9b893b321a5f7751decc23 Mon Sep 17 00:00:00 2001 From: Martin Hunt Date: Fri, 5 Jun 1998 01:29:10 +0000 Subject: [PATCH] Thu Jun 4 18:31:53 1998 Martin M. Hunt * gdbtk.c (gdbtk_init): Initialize tkTable. --- gdb/ChangeLog-gdbtk | 4 ++++ gdb/gdbtk.c | 7 +++++++ 2 files changed, 11 insertions(+) diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk index fbc69f62cdb..5372df0ea49 100644 --- a/gdb/ChangeLog-gdbtk +++ b/gdb/ChangeLog-gdbtk @@ -1,3 +1,7 @@ +Thu Jun 4 18:31:53 1998 Martin M. Hunt + + * gdbtk.c (gdbtk_init): Initialize tkTable. + Thu Jun 4 10:15:03 1998 Elena Zannoni * gdbtk.c: merged: diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c index e99f3390c82..21222fe6086 100644 --- 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"); -- 2.30.2