From: sls <sls>
Date: Thu, 22 Jun 1995 00:20:47 +0000 (+0000)
Subject: (update_scalar): bug fix.
X-Git-Tag: r_5_1_4~1
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=c94595ed3aaee8a43dae356d8b56bc9146bb36cb;p=tkinspect

(update_scalar): bug fix.
---

diff --git a/globals_list.tcl b/globals_list.tcl
index be9a3ff..93f3865 100644
--- a/globals_list.tcl
+++ b/globals_list.tcl
@@ -52,7 +52,8 @@ dialog variable_trace {
 	send $slot(target) \
 	    [list trace vdelete $slot(variable) wu $slot(trace_cmd)]
     }
-    method update_scalar {name op} {
+    method update_scalar {args} {
+	set op [lindex $args end]
 	if {$op == "w"} {
 	    $self.t insert end-1c \
 		[list set $slot(variable) \