#TUNING by cg
class: ShadowView
changed: #redraw
draw by sending messages to gc instead of self.
(new GC structure)
--- 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"