From 9cce20884cc67320b2e8138ffeaa9486606561d6 Mon Sep 17 00:00:00 2001 From: sls Date: Tue, 14 Feb 1995 02:52:49 +0000 Subject: [PATCH] Fix send command button. --- tkinspect.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tkinspect.tcl b/tkinspect.tcl index de214ce..cc6fafc 100644 --- a/tkinspect.tcl +++ b/tkinspect.tcl @@ -7,7 +7,7 @@ exec @wish@ -f "$0" ${1+"$@"} set tkinspect(counter) -1 set tkinspect(main_window_count) 0 -set tkinspect(release) 5.0.2 +set tkinspect(release) 5.0.3 set tkinspect(release_date) "Feb 10, 1995" set tkinspect(list_classes) "procs_list globals_list windows_list" @@ -88,7 +88,7 @@ dialog tkinspect_main { bind $f.command "$self send_command \[%W get\]" pack $f.command -side left -fill x -expand 1 button $f.send_command -text "Send Command" \ - -command "$self send_command" + -command "$self send_command \[$f.command get\]" button $f.send_value -text "Send Value" \ -command "$self.value send_value" pack $f.send_command $f.send_value -side left -- 2.23.0