From: sls <sls>
Date: Tue, 14 Feb 1995 02:52:49 +0000 (+0000)
Subject: Fix send command button.
X-Git-Tag: r5_1_1~54
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=9cce20884cc67320b2e8138ffeaa9486606561d6;p=tkinspect

Fix send command button.
---

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 <Return> "$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