From 0081d5d95317783beb3ec5c1cc8813120c036376 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Fri, 10 Feb 1995 10:59:10 +0000
Subject: [PATCH] Delete scrolled off lines correctly.  Make sure we use the
 right name in array variable trace.

---
 globals_list.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/globals_list.tcl b/globals_list.tcl
index fe23513..a3fc7f9 100644
--- 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
     }
-- 
2.23.0