--- a/CheckToggle.st Wed Oct 21 16:27:58 2009 +0200
+++ b/CheckToggle.st Wed Oct 21 16:28:01 2009 +0200
@@ -685,11 +685,14 @@
explicitExtent notNil ifTrue:[
^ explicitExtent
].
-
"/ If I have a cached preferredExtent value..
preferredExtent notNil ifTrue:[
^ preferredExtent
].
+ "/ If I have a frozen extent value...
+ fixSize ifTrue:[
+ ^ self extent
+ ].
pref := super preferredExtent.
LabelOverMargin ifTrue:[
@@ -777,5 +780,9 @@
!CheckToggle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.66 2009-02-17 20:12:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.67 2009-10-21 14:28:01 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.67 2009-10-21 14:28:01 cg Exp $'
! !