--- a/InfoBox.st Fri May 30 14:24:39 2008 +0200
+++ b/InfoBox.st Fri May 30 14:25:15 2008 +0200
@@ -9,9 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
"{ Package: 'stx:libwidg' }"
DialogBox subclass:#InfoBox
@@ -305,10 +302,10 @@
box := super addCheckBox:label on:aValueHolder.
box layout:((0.0 @ 1.0 corner:1.0 @ 1.0) asLayout
- topOffset:(buttonPanel preferredExtent y
- + box preferredExtent y
+ topOffset:(buttonPanel preferredHeight
+ + box preferredHeight
+ ViewSpacing ) negated;
- bottomOffset:(buttonPanel preferredExtent y
+ bottomOffset:(buttonPanel preferredHeight
+ ViewSpacing ) negated).
^ box.
!
@@ -357,7 +354,7 @@
(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 preferredExtent y).
+ sep extent:(1.0 @ sep preferredHeight).
].
"
@@ -400,12 +397,12 @@
formLabel widthIncludingBorder +
mm + textLabel width.
- w := w max:(okButton preferredExtent x + (mm * 2)).
+ w := w max:(okButton preferredWidth + (mm * 2)).
w := w max:self maxPreferredWidthOfAddedComponents.
h := (mm * 6)
+ ((formLabel heightIncludingBorder) max:(textLabel height))
- + ((addedComponents ? #()) inject:0 into:[:sum :thisComponent | sum + thisComponent preferredExtent y])
+ + ((addedComponents ? #()) inject:0 into:[:sum :thisComponent | sum + thisComponent preferredHeight])
+ okButton heightIncludingBorder.
(styleSheet at:'infoBoxSeparator' default:false) ifTrue:[
@@ -420,5 +417,5 @@
!InfoBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.44 2005-01-12 11:05:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.45 2008-05-30 12:25:15 cg Exp $'
! !