From 84c8ddb7881dcf73d412f1e2637dee3c8012890d Mon Sep 17 00:00:00 2001 From: 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