--- a/Toggle.st	Wed Oct 21 16:28:01 2009 +0200
+++ b/Toggle.st	Wed Oct 21 16:28:02 2009 +0200
@@ -579,37 +579,6 @@
     "Modified: / 3.11.1997 / 14:26:54 / cg"
 ! !
 
-!Toggle methodsFor:'queries'!
-
-preferredExtent
-    "return my preferred extent - this is the minimum size I would like to have"
-
-    |pref x y|
-
-    "/ If I have an explicit preferredExtent..
-    explicitExtent notNil ifTrue:[
-        ^ explicitExtent
-    ].
-
-    "/ If I have a cached preferredExtent value..
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
-    pref := super preferredExtent.
-
-    showLamp ifTrue:[
-        "/ add some space for the lamp.
-
-        x := pref x + (self lampImageWidth) + hSpace.
-        y := pref y max:(self lampImageHeight).
-        pref := x @ y.
-    ].
-    ^ pref
-
-    "Modified: / 3.11.1997 / 14:26:41 / cg"
-! !
-
 !Toggle methodsFor:'redrawing'!
 
 drawToggleImage
@@ -657,9 +626,9 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.55 2009-10-21 14:24:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.56 2009-10-21 14:28:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.55 2009-10-21 14:24:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.56 2009-10-21 14:28:02 cg Exp $'
 ! !