--- a/Toggle.st	Mon Jan 12 11:30:14 2015 +0100
+++ b/Toggle.st	Mon Jan 26 15:47:46 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg' }"
 
+"{ NameSpace: Smalltalk }"
+
 Button subclass:#Toggle
 	instanceVariableNames:'showLamp lampColor lampWidth lampHeight'
 	classVariableNames:'DefaultShowLamp DefaultLampColor LampInset'
@@ -394,10 +396,18 @@
     "Modified: / 6.6.1998 / 19:32:50 / cg"
 !
 
+lampHeight
+    ^ lampHeight
+!
+
 lampHeight:something
     lampHeight := something.
 !
 
+lampWidth
+    ^ lampWidth 
+!
+
 lampWidth: something
     lampWidth := something
 !
@@ -626,10 +636,10 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.57 2014-02-18 16:59:47 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.58 2015-01-26 14:47:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.57 2014-02-18 16:59:47 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.58 2015-01-26 14:47:46 cg Exp $'
 ! !