--- a/UISelectionPanel.st	Fri Apr 18 05:51:17 1997 +0200
+++ b/UISelectionPanel.st	Tue Apr 22 18:57:44 1997 +0200
@@ -803,9 +803,8 @@
     x <= (self extent x) ifTrue:[
         y := extent y.
     ] ifFalse:[
-        y := tabView preferredHeight.
+        y := tabView preferredSizeXorY.
     ].
-    y := y + 8.
     tabView bottomInset:(y negated).
     window  topInset:y.
 
@@ -815,7 +814,7 @@
 update:something with:aParameter from:changedObject
     "tabView might change its size
     "
-    (something == #preferredHeight and:[changedObject == tabView]) ifFalse:[
+    (something == #preferredExtent and:[changedObject == tabView]) ifFalse:[
         ^ self
     ].
     self recomputeSizes
@@ -916,8 +915,6 @@
     tabView useIndex:true.
 
     tabView styleAt:#expandSelection   put:6@2.
-    tabView styleAt:#labelBottomInset  put:4.
-    tabView styleAt:#lableTopInset     put:0.
     tabView font:(Label defaultFont).
     tabView addDependent:self.
     self delegate:(KeyboardForwarder from:self toView:tabView).