--- a/FontPanel.st Sun Oct 26 21:14:32 2008 +0100
+++ b/FontPanel.st Sun Oct 26 21:14:44 2008 +0100
@@ -844,8 +844,12 @@
preferredExtent
"return the boxes preferredExtent"
- "/ 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
].
@@ -1050,5 +1054,5 @@
!FontPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.93 2008-10-21 15:43:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.94 2008-10-26 20:14:44 stefan Exp $'
! !