Delete scrolled off lines correctly. Make sure we use the right name in

array variable trace.

diff --git a/globals_list.tcl b/globals_list.tcl
index fe235130c1be422709fb3c268cb372bfcc343f54..a3fc7f928f251759b58ea6ec72544d5cda644743 100644 (file)
--- a/globals_list.tcl
+++ b/globals_list.tcl
@@ -63,7 +63,7 @@ dialog variable_trace {
        }
        if {$op == "w"} {
            $self.t insert end-1c \
-               [list set [set n1]([set n2]) \
+               [list set [set slot(variable)]([set n2]) \
                 [send $slot(target) [list set [set slot(variable)]([set n2])]]]
        } elseif {[info exists n2]} {
            $self.t insert end-1c [list unset [set slot(variable)]([set n2])]
@@ -76,7 +76,7 @@ dialog variable_trace {
     method scroll {} {
        scan [$self.t index end] "%d.%d" line col
        if {$line > $slot(savelines)} {
-           $self.t delete 1.0 1.10000
+           $self.t delete 1.0 2.0
        }
        $self.t see end
     }