--- a/FontPanel.st	Fri May 30 13:12:47 2008 +0200
+++ b/FontPanel.st	Fri May 30 14:24:28 2008 +0200
@@ -443,7 +443,7 @@
     self addAbortAndOkButtons.
 
     panel := View origin:0.0@0.0 corner:1.0@1.0 in:self.
-    panel bottomInset:(buttonPanel preferredExtent y 
+    panel bottomInset:(buttonPanel preferredHeight 
                         + (mm*3) 
                         + (showFontNameLabel ifTrue:24 ifFalse:0) ).
 
@@ -466,7 +466,7 @@
     encodingFilter immediateAccept:true.
     "/ encodingFilter editor font:l font.
 
-    eH := encodingFilter preferredExtent y.
+    eH := encodingFilter preferredHeight.
     box topInset:(eH negated-4); horizontalInset:mm.
 
 "/    encodingFilter acceptOnReturn:true.
@@ -485,8 +485,8 @@
     showFontNameLabel ifTrue:[
         nameLabel := Label label:'' in:self.
         nameLabel origin:0.0@1.0 corner:1.0@1.0.
-        nameLabel bottomInset:(buttonPanel preferredExtent y + (mm*2)).
-        nameLabel topInset:(buttonPanel preferredExtent y + (mm*2) + 24) negated; horizontalInset:mm.
+        nameLabel bottomInset:(buttonPanel preferredHeight + (mm*2)).
+        nameLabel topInset:(buttonPanel preferredHeight + (mm*2) + 24) negated; horizontalInset:mm.
         nameLabel level:0; adjust:#left.
         nameLabel font:(FontDescription family:'helvetica' face:'medium' style:'roman' size:9).
     ].
@@ -511,7 +511,7 @@
     familyLabel := Label label:(resources string:'Family') in:v1.
     familyLabel borderWidth:0.
     familyLabel origin:(0.0 @ 0.0) extent:(1.0 @ nil).
-    fH := familyLabel preferredExtent y.
+    fH := familyLabel preferredHeight.
 
     familyList := ScrollableView for:SelectionInListView in:v1.
     familyList origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
@@ -983,5 +983,5 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.91 2008-05-19 17:32:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.92 2008-05-30 12:24:28 cg Exp $'
 ! !