--- a/ShadowView.st	Wed Aug 18 16:34:20 1999 +0200
+++ b/ShadowView.st	Wed Aug 18 16:35:26 1999 +0200
@@ -180,7 +180,7 @@
                 imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.
 
                 blackIs0 ifFalse:[
-                    imageUnderShadow foreground:(Color black on:device) background:clr0.
+                    imageUnderShadow foreground:(Color black onDevice:device) background:clr0.
                     imageUnderShadow function:#or.
                     imageUnderShadow fillRectangleX:right y:0 width:shW height:height.
                     imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.
@@ -202,7 +202,7 @@
 
 recreate
     shadowClr notNil ifTrue:[
-	shadowClr := shadowClr on:device
+        shadowClr := shadowClr onDevice:device
     ].
 
     "the length of the shadow from myView"
@@ -227,5 +227,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.28 1999-04-23 14:53:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.29 1999-08-18 14:35:26 cg Exp $'
 ! !