--- a/Toggle.st	Tue Aug 17 12:59:01 1999 +0200
+++ b/Toggle.st	Wed Aug 18 16:31:38 1999 +0200
@@ -440,7 +440,7 @@
 
     super fetchDeviceResources.
 
-    lampColor notNil ifTrue:[lampColor := lampColor on:device].
+    lampColor notNil ifTrue:[lampColor := lampColor onDevice:device].
 
     "Created: 13.1.1997 / 23:46:31 / cg"
 !
@@ -634,5 +634,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.45 1999-04-24 17:14:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.46 1999-08-18 14:31:00 cg Exp $'
 ! !