InfoBox.st
changeset 3609 3bd1b03b1ffb
parent 3121 8e4d21e008c9
child 3750 3d4912629acf
--- 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 $'
 ! !