--- a/ListSelectionBox.st	Fri May 30 14:25:50 2008 +0200
+++ b/ListSelectionBox.st	Fri May 30 14:25:56 2008 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg' }"
 
 EnterBox subclass:#ListSelectionBox
@@ -288,7 +287,7 @@
               ]
              ]
       corner:(1.0 @ 1.0).
-    v bottomInset:(buttonPanel preferredExtent y + ViewSpacing).
+    v bottomInset:(buttonPanel preferredHeight + ViewSpacing).
 
     vbw := v borderWidth.
     v leftInset:halfSpace+vbw;
@@ -376,7 +375,7 @@
     (wWanted > width) ifFalse:[
         wWanted := width
     ].
-    bw := buttonPanel preferredExtent x.
+    bw := buttonPanel preferredWidth.
     bw > wWanted ifTrue:[
         wWanted := bw.
     ].
@@ -389,7 +388,7 @@
     hWanted := mm + labelField height +
                eH +
                mm + selectionList height +
-               mm + buttonPanel preferredExtent y +
+               mm + buttonPanel preferredHeight +
                mm - (mm * 2).
 
     (hWanted < height) ifTrue:[
@@ -436,5 +435,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.56 2004-09-29 11:29:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.57 2008-05-30 12:25:56 cg Exp $'
 ! !