--- 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).