--- a/Toggle.st	Mon Feb 17 11:09:46 1997 +0100
+++ b/Toggle.st	Tue Feb 18 13:14:28 1997 +0100
@@ -501,6 +501,33 @@
     "Created: 14.11.1995 / 21:08:43 / 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 ..
+
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
+    pref := super preferredExtent.
+
+    showLamp ifTrue:[
+        "/ add some space for the lamp.
+
+        x := pref x + lampWidth + hSpace.
+        y := pref y max:(lampHeight).
+        pref := x @ y.
+    ].
+    ^ pref
+
+    "Modified: 18.2.1997 / 13:12:51 / cg"
+! !
+
 !Toggle methodsFor:'redrawing'!
 
 drawWith:fg and:bg
@@ -528,5 +555,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.34 1997-02-08 14:23:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.35 1997-02-18 12:14:28 cg Exp $'
 ! !