--- a/UIGalleryView.st	Wed Jul 13 11:06:28 2016 +0200
+++ b/UIGalleryView.st	Wed Jul 20 11:35:04 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
 	      All Rights Reserved
@@ -655,10 +657,10 @@
         self clippedByChildren:false.
 
         self handlesOf:selection do:[:aRectangle|
-            self paint:Color black.
+            self paint:self blackColor.
             self fillRectangle:aRectangle.
 
-            self paint:Color white.
+            self paint:self whiteColor.
             self displayRectangle:(aRectangle insetBy:0).
         ].
         self clippedByChildren:true.
@@ -703,8 +705,8 @@
 
                         (sv bounds intersects:r) ifTrue:[   
                             sv isView ifTrue:[
-                                sv borderColor:(Color white).           "/ kludge to force a redraw
-                                sv borderColor:(Color black).
+                                sv borderColor:(self whiteColor).           "/ kludge to force a redraw
+                                sv borderColor:(self blackColor).
 
                                 sv withAllSubViewsDo:[:v|
                                     v realized ifTrue:[