alignmentOrigin
authorca
Tue, 09 Oct 2007 10:42:57 +0200
changeset 3499 c96f50569871
parent 3498 1170b64bde6e
child 3500 ea942b6f6edc
alignmentOrigin
Label.st
--- a/Label.st	Mon Oct 08 17:23:45 2007 +0200
+++ b/Label.st	Tue Oct 09 10:42:57 2007 +0200
@@ -1547,10 +1547,12 @@
      - helper for form:/font: etc."
 
     self computeLabelSize.
+
     fixSize ifFalse:[
-        self resize
+        self resize.
+    ] ifTrue:[
+        self computeLabelOrigin.
     ].
-    self computeLabelOrigin.
     self invalidate
 
     "Modified: / 6.6.1998 / 19:23:45 / cg"
@@ -1796,6 +1798,12 @@
         fixSize := false.
         self extent:self preferredExtent.
         self computeLabelOrigin.
+        "/ this seems the only one which might depend on my contents.
+        layout isLayout ifTrue:[
+            layout isAlignmentOrigin ifTrue:[
+                self containerChangedSize.
+            ]
+        ].
         fixSize := prevFixSize.
     ]
 !
@@ -1835,5 +1843,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.128 2007-06-22 13:30:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.129 2007-10-09 08:42:57 ca Exp $'
 ! !