--- a/EnterBox.st Sun Oct 26 21:14:44 2008 +0100
+++ b/EnterBox.st Sun Oct 26 21:14:57 2008 +0100
@@ -568,8 +568,12 @@
|wWanted hWanted wPanel vs2 min
labelPref enterPref panelPref|
- "/ If I have an explicit preferredExtent ..
+ "/ If I have an explicit preferredExtent..
+ explicitExtent notNil ifTrue:[
+ ^ explicitExtent
+ ].
+ "/ If I have a cached preferredExtent value..
preferredExtent notNil ifTrue:[
^ preferredExtent
].
@@ -703,5 +707,5 @@
!EnterBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.62 2008-05-30 12:24:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.63 2008-10-26 20:14:57 stefan Exp $'
! !