--- a/ShadowView.st	Wed Jul 20 11:35:43 2016 +0200
+++ b/ShadowView.st	Wed Jul 20 11:35:44 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -239,7 +241,7 @@
                     imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.
 
                     blackIs0 ifFalse:[
-                        imageUnderShadow foreground:(Color black onDevice:graphicsDevice) background:clr0.
+                        imageUnderShadow foreground:self blackColor background:clr0.
                         imageUnderShadow function:#or.
                         imageUnderShadow fillRectangleX:right y:0 width:shW height:height.
                         imageUnderShadow fillRectangleX:0 y:bot width:width height:shH.