ShadowView.st
changeset 7792 36150f514d6a
parent 7585 5c5e44bad956
child 7803 14d6df784ebb
child 8191 eba71ad14f69
--- a/ShadowView.st	Tue Jan 24 23:11:31 2017 +0100
+++ b/ShadowView.st	Tue Jan 24 23:22:47 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -101,8 +99,8 @@
                                    width:width height:hs.
 
     ] ifFalse:[
-        self paint:shadowClr.
-        self fillRectangleX:(width - ws) y:0 width:ws height:height
+        gc paint:shadowClr.
+        gc fillRectangleX:(width - ws) y:0 width:ws height:height
     ]
 
     "Modified: 12.5.1996 / 22:00:05 / cg"