--- a/Toggle.st	Fri Apr 02 14:49:26 2004 +0200
+++ b/Toggle.st	Fri Apr 02 19:29:23 2004 +0200
@@ -395,6 +395,14 @@
     "Modified: / 6.6.1998 / 19:32:50 / cg"
 !
 
+lampHeight:something
+    lampHeight := something.
+!
+
+lampWidth: something
+    lampWidth := something
+!
+
 showLamp
     "return true, if I show a lamp"
 
@@ -628,5 +636,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.48 2001-12-14 10:57:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.49 2004-04-02 17:29:23 werner Exp $'
 ! !