--- 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 $'
! !