--- 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).