From: sls <sls>
Date: Fri, 2 Jun 1995 04:24:20 +0000 (+0000)
Subject: Fix invocation of interpreter menu so things work with Tk 4.0b3.
X-Git-Tag: r5_1_1~33
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=84c8ddb7881dcf73d412f1e2637dee3c8012890d;p=tkinspect

Fix invocation of interpreter menu so things work with Tk 4.0b3.
---

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