(update_scalar): bug fix.

diff --git a/globals_list.tcl b/globals_list.tcl
index be9a3ff4abdd4be5ac1f8cd70529b6b5f65a8db4..93f38654475118cc9b5bee139f7fe27c1c3bf447 100644 (file)
--- 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) \