#OTHER by stefan
use #blackColor and #whiteColor form device
instead of (Color black) and (Color white)
--- 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:[