changed: #initialize
authorClaus Gittinger <cg@exept.de>
Fri, 29 Jul 2011 12:33:20 +0200
changeset 4295 0d8d95fc9f63
parent 4294 f635b66d4b27
child 4296 ded54b6d30a1
changed: #initialize keep yPos to allow for widgets to be added using aboutToOpenNotification
InfoBox.st
--- a/InfoBox.st	Fri Jul 29 12:32:41 2011 +0200
+++ b/InfoBox.st	Fri Jul 29 12:33:20 2011 +0200
@@ -384,10 +384,16 @@
     textLabel borderWidth:0.
     textLabel origin:[(mm + formLabel widthIncludingBorder + mm) @ mm].
 
+    yPosition := textLabel corner y.
+    formLabel notNil ifTrue:[yPosition := yPosition max:(formLabel corner y)].
+    yPosition := yPosition + ViewSpacing.
+
     (styleSheet at:'infoBoxSeparator' default:false) ifTrue:[
         sep := Separator in:self.
         sep origin:[0.0 @ ((formLabel bottom max:textLabel bottom) + mm)].
         sep extent:(1.0 @ sep preferredHeight).
+        yPosition := yPosition max:(sep corner y).
+        yPosition := yPosition + ViewSpacing.
     ].
 
     "
@@ -398,7 +404,7 @@
      b open
     "
 
-    "Modified: 1.4.1997 / 14:53:16 / cg"
+    "Modified: / 29-07-2011 / 12:31:29 / cg"
 ! !
 
 !InfoBox methodsFor:'queries'!
@@ -454,9 +460,9 @@
 !InfoBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.48 2010-12-22 18:32:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.49 2011-07-29 10:33:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.48 2010-12-22 18:32:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.49 2011-07-29 10:33:20 cg Exp $'
 ! !