oops - resize in Y must redraw
authorClaus Gittinger <cg@exept.de>
Tue, 28 Apr 1998 17:07:39 +0200
changeset 1508 15d1b3e7e92a
parent 1507 c712eb1a247e
child 1509 56476462887d
oops - resize in Y must redraw
Label.st
--- a/Label.st	Mon Apr 27 10:07:12 1998 +0200
+++ b/Label.st	Tue Apr 28 17:07:39 1998 +0200
@@ -1248,22 +1248,25 @@
     "sent whenever size is changed by someone else - recompute the
      logos position within the View."
 
-    |prevPosition|
+    |prevX prevY|
 
     super sizeChanged:how.
-    prevPosition := labelOriginX.
+
+    prevX := labelOriginX.
+    prevY := labelOriginY.
     self computeLabelOrigin.
     shown ifTrue:[
         (adjust == #fit
-        or:[labelOriginX ~~ prevPosition 
-        or:[how ~~ #smaller]]) ifTrue:[
-            "/ self clear.
+        or:[labelOriginX ~~ prevX 
+        or:[labelOriginY ~~ prevY 
+        or:[how ~~ #smaller]]]) ifTrue:[
+            "/self clear.
             self invalidate.
 "/            self redrawEdges
         ]
     ]
 
-    "Modified: / 3.11.1997 / 18:17:12 / cg"
+    "Modified: / 28.4.1998 / 17:07:07 / cg"
 ! !
 
 !Label methodsFor:'initialization'!
@@ -1726,5 +1729,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.88 1998-01-26 18:54:50 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.89 1998-04-28 15:07:39 cg Exp $'
 ! !