changed: #initialize
keep yPos to allow for widgets to be added using aboutToOpenNotification
--- 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 $'
! !