--- a/UIPainterView.st	Thu Apr 09 13:35:35 1998 +0200
+++ b/UIPainterView.st	Thu Apr 09 18:54:28 1998 +0200
@@ -12,7 +12,7 @@
 
 UIObjectView subclass:#UIPainterView
 	instanceVariableNames:'treeView listHolder superclassName className methodName
-		categoryName'
+		categoryName handleColor handleMasterColor'
 	classVariableNames:'HandCursor RedefineAspectMethods'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
@@ -929,15 +929,26 @@
 
 !UIPainterView methodsFor:'initialization'!
 
+create
+    "colors on device
+    "
+    super create.
+
+    handleColor       := handleColor on:device.
+    handleMasterColor := handleMasterColor on:device.
+!
+
 initialize
     "setup attributes
     "
     super initialize.
-    superclassName := 'ApplicationModel'.
-    className      := 'NewApplication'.
-    methodName     := 'windowSpec'.
-    categoryName   := 'Applications'.
-    HandCursor     := Cursor leftHand.
+    superclassName    := 'ApplicationModel'.
+    className         := 'NewApplication'.
+    methodName        := 'windowSpec'.
+    categoryName      := 'Applications'.
+    HandCursor        := Cursor leftHand.
+    handleColor       := Color black.
+    handleMasterColor := Color red.
 
     self backgroundColor: self class defaultViewBackgroundColor.
 !
@@ -1007,8 +1018,8 @@
     selectionHiddenLevel == 0 ifTrue:[
         (treeView selection size > 1 and: 
         [(treeView model list at: treeView selection first) contents view == aComponent])
-            ifTrue: [self paint: Color red]
-            ifFalse:[self paint: Black].
+            ifTrue: [self paint: handleMasterColor]
+            ifFalse:[self paint: handleColor].
 
         (wasClipped := clipChildren) ifTrue:[
             self clippedByChildren:(clipChildren := false).