# HG changeset patch
# User ca
# Date 825011548 -3600
# Node ID fb823917008e3254522079dd5c50c0053e010fea
# Parent  6656f7e8ae20767da0a6e2e2e1434b1e1880744b
correctly handle level changes if abs(lvl) changes

diff -r 6656f7e8ae20 -r fb823917008e ListView.st
--- a/ListView.st	Wed Feb 21 18:02:31 1996 +0100
+++ b/ListView.st	Thu Feb 22 18:52:28 1996 +0100
@@ -292,11 +292,14 @@
     "set the level - cought here to update text-position variables
      (which avoids many computations later)"
 
+    |newMargin|
+
+    newMargin := aNumber abs.
+    textStartLeft := leftMargin + newMargin.
+    textStartTop := topMargin +newMargin.
+    innerWidth := width - textStartLeft - newMargin.
+
     super level:aNumber.
-
-    textStartLeft := leftMargin + margin.
-    textStartTop := topMargin + margin.
-    innerWidth := width - textStartLeft - margin
 !
 
 lineSpacing:pixles
@@ -2800,5 +2803,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.62 1996-02-10 12:54:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.63 1996-02-22 17:52:28 ca Exp $'
 ! !