--- a/Toggle.st	Sun Oct 26 21:11:53 2008 +0100
+++ b/Toggle.st	Sun Oct 26 21:12:04 2008 +0100
@@ -582,8 +582,12 @@
 
     |pref x y|
 
-    "/ 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
     ].
@@ -649,5 +653,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.53 2008-03-08 11:00:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.54 2008-10-26 20:12:04 stefan Exp $'
 ! !