added preferredWidth & preferredHeight
authorClaus Gittinger <cg@exept.de>
Fri, 30 May 2008 14:26:05 +0200
changeset 3427 9927e4970fce
parent 3426 3ee5ebdac332
child 3428 436f115aefe8
added preferredWidth & preferredHeight
FilenameWidgetWithHistory.st
--- a/FilenameWidgetWithHistory.st	Fri May 30 14:25:47 2008 +0200
+++ b/FilenameWidgetWithHistory.st	Fri May 30 14:26:05 2008 +0200
@@ -95,9 +95,9 @@
         ^ preferredExtent
     ].
 
-    preferredExtent := (fileNameEntryField preferredExtent x + browseButton preferredExtent x)
+    preferredExtent := (fileNameEntryField preferredWidth + browseButton preferredWidth)
                        @
-                       (fileNameEntryField preferredExtent y "max: browseButton preferredExtent y").
+                       (fileNameEntryField preferredHeight "max: browseButton preferredExtent y").
     ^ preferredExtent
 ! !
 
@@ -127,5 +127,5 @@
 !FilenameWidgetWithHistory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.2 2008-01-22 22:32:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.3 2008-05-30 12:26:05 cg Exp $'
 ! !