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