--- a/TextBox.st	Thu May 29 18:19:38 2008 +0200
+++ b/TextBox.st	Fri May 30 14:24:36 2008 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 EnterBox subclass:#TextBox
@@ -203,7 +202,7 @@
     ].
     hWanted := ViewSpacing + labelField height +
                ViewSpacing + textView height +
-               (ViewSpacing * 6) + buttonPanel preferredExtent y +
+               (ViewSpacing * 6) + buttonPanel preferredHeight +
                ViewSpacing.
     ^ (wWanted @ hWanted)
 ! !
@@ -211,5 +210,5 @@
 !TextBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TextBox.st,v 1.18 2004-02-06 13:51:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TextBox.st,v 1.19 2008-05-30 12:24:36 cg Exp $'
 ! !