From 84c8ddb7881dcf73d412f1e2637dee3c8012890d Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Fri, 2 Jun 1995 04:24:20 +0000
Subject: [PATCH] Fix invocation of interpreter menu so things work with Tk
4.0b3.
---
tkinspect.tcl | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/tkinspect.tcl b/tkinspect.tcl
index 4b2ecf5..214e7e6 100644
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -60,7 +60,7 @@ dialog tkinspect_main {
pack $self.menu.file -side left
set m [menu $self.menu.file.m]
$m add cascade -label "Select Interpreter" -underline 0 \
- -menu $self.menu.file.m.interps -command "$self fill_interp_menu"
+ -menu $self.menu.file.m.interps
$m add command -label "New Window" -underline 0 \
-command tkinspect_create_main_window
$m add command -label "Update Lists" -underline 0 \
@@ -69,7 +69,8 @@ dialog tkinspect_main {
$m add command -label "Close Window" -underline 0 \
-command "$self close"
$m add command -label "Exit" -underline 0 -command tkinspect_exit
- menu $self.menu.file.m.interps -tearoff 0
+ menu $self.menu.file.m.interps -tearoff 0 \
+ -postcommand "$self fill_interp_menu"
menubutton $self.menu.options -menu $self.menu.options.m \
-text "Options" -underline 0
pack $self.menu.options -side left
--
2.23.0