#TUNING by cg draft
authorClaus Gittinger <cg@exept.de>
Tue, 24 Jan 2017 23:34:27 +0100
changeset 3387 462d9e0dea1f
parent 3386 5baabc41e189
child 3388 b9b7b2fae2f9
#TUNING by cg class: UIPainterView changed: #showSelected: draw by sending messages to gc instead of self. (new GC structure)
UIPainterView.st
--- a/UIPainterView.st	Tue Jan 24 23:34:01 2017 +0100
+++ b/UIPainterView.st	Tue Jan 24 23:34:27 2017 +0100
@@ -2117,7 +2117,7 @@
         ].
 
         (wasClipped := clipChildren) ifTrue:[
-            self clippedByChildren:(clipChildren := false).
+            gc clippedByChildren:(clipChildren := false).
         ].
 
         self handlesOf:aComponent do:[:aRectangle :what| 
@@ -2128,20 +2128,20 @@
             w := aRectangle width.
             h := aRectangle height.
 
-            self paint:hOutsideColor.
-            self displayRectangleX:l y:t width:w height:h.
-
-            self paint:hInsideColor.
+            gc paint:hOutsideColor.
+            gc displayRectangleX:l y:t width:w height:h.
+
+            gc paint:hInsideColor.
 
             what == #view ifTrue:[
-                self displayRectangleX:l+1 y:t+1 width:w-2 height:h-2
+                gc displayRectangleX:l+1 y:t+1 width:w-2 height:h-2
             ] ifFalse:[
-                self fillRectangleX:l+1 y:t+1 width:w-2 height:h-2
+                gc fillRectangleX:l+1 y:t+1 width:w-2 height:h-2
             ]
         ].
 
         wasClipped ifTrue:[
-            self clippedByChildren:(clipChildren := true).
+            gc clippedByChildren:(clipChildren := true).
         ]
     ]