# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1469007304 -7200
# Node ID dc9f18489a126a43ef8ec37733ec68918d575a40
# Parent  84084dd13f11a39dffdd4a3b32f10e4426185538
#OTHER by stefan
use #blackColor and #whiteColor form device
instead of (Color black) and (Color white)

diff -r 84084dd13f11 -r dc9f18489a12 UIGalleryView.st
--- 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:[