--- a/LabelAndIcon.st	Tue Jun 17 12:39:25 1997 +0200
+++ b/LabelAndIcon.st	Tue Jun 17 13:37:08 1997 +0200
@@ -279,7 +279,7 @@
     ].
 
     icon notNil ifTrue:[
-        icon := icon on:aGC device.
+        icon := icon onDevice:aGC device.
 
         (opaque 
         and:[icon mask isNil]) ifTrue:[
@@ -300,7 +300,7 @@
         x:x+xOffs
         y:y+yOffs.
 
-    "Modified: 27.2.1997 / 14:56:19 / cg"
+    "Modified: 17.6.1997 / 13:36:55 / cg"
 ! !
 
 !LabelAndIcon methodsFor:'initialization'!
@@ -346,5 +346,5 @@
 !LabelAndIcon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.13 1997-05-20 06:49:19 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LabelAndIcon.st,v 1.14 1997-06-17 11:37:08 cg Exp $'
 ! !