From: sls <sls>
Date: Fri, 10 Feb 1995 10:59:10 +0000 (+0000)
Subject: Delete scrolled off lines correctly.  Make sure we use the right name in
X-Git-Tag: r5_1_1~65
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=0081d5d95317783beb3ec5c1cc8813120c036376;p=tkinspect

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 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
     }