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"