#TUNING by cg
authorClaus Gittinger <cg@exept.de>
Tue, 24 Jan 2017 23:22:47 +0100
changeset 7792 36150f514d6a
parent 7791 66d7e8e6d807
child 7793 44d58dad99d8
child 7803 14d6df784ebb
#TUNING by cg class: ShadowView changed: #redraw draw by sending messages to gc instead of self. (new GC structure)
ShadowView.st
--- 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"