# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1485297267 -3600
# Node ID 462d9e0dea1f2abbc9b25033b09af84ea0942870
# Parent  5baabc41e1896998af7db8de818c73264b1c915b
#TUNING by cg
class: UIPainterView
changed: #showSelected:
draw by sending messages to gc instead of self.
(new GC structure)

diff -r 5baabc41e189 -r 462d9e0dea1f 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).
         ]
     ]