equal
deleted
inserted
replaced
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 UIObjectView subclass:#UIPainterView |
13 UIObjectView subclass:#UIPainterView |
14 instanceVariableNames:'treeView listHolder superclassName className methodName |
14 instanceVariableNames:'treeView listHolder superclassName className methodName |
15 categoryName' |
15 categoryName handleColor handleMasterColor' |
16 classVariableNames:'HandCursor RedefineAspectMethods' |
16 classVariableNames:'HandCursor RedefineAspectMethods' |
17 poolDictionaries:'' |
17 poolDictionaries:'' |
18 category:'Interface-UIPainter' |
18 category:'Interface-UIPainter' |
19 ! |
19 ! |
20 |
20 |
927 |
927 |
928 ! ! |
928 ! ! |
929 |
929 |
930 !UIPainterView methodsFor:'initialization'! |
930 !UIPainterView methodsFor:'initialization'! |
931 |
931 |
|
932 create |
|
933 "colors on device |
|
934 " |
|
935 super create. |
|
936 |
|
937 handleColor := handleColor on:device. |
|
938 handleMasterColor := handleMasterColor on:device. |
|
939 ! |
|
940 |
932 initialize |
941 initialize |
933 "setup attributes |
942 "setup attributes |
934 " |
943 " |
935 super initialize. |
944 super initialize. |
936 superclassName := 'ApplicationModel'. |
945 superclassName := 'ApplicationModel'. |
937 className := 'NewApplication'. |
946 className := 'NewApplication'. |
938 methodName := 'windowSpec'. |
947 methodName := 'windowSpec'. |
939 categoryName := 'Applications'. |
948 categoryName := 'Applications'. |
940 HandCursor := Cursor leftHand. |
949 HandCursor := Cursor leftHand. |
|
950 handleColor := Color black. |
|
951 handleMasterColor := Color red. |
941 |
952 |
942 self backgroundColor: self class defaultViewBackgroundColor. |
953 self backgroundColor: self class defaultViewBackgroundColor. |
943 ! |
954 ! |
944 |
955 |
945 setupFromSpec:specOrSpecArray |
956 setupFromSpec:specOrSpecArray |
1005 |wasClipped| |
1016 |wasClipped| |
1006 |
1017 |
1007 selectionHiddenLevel == 0 ifTrue:[ |
1018 selectionHiddenLevel == 0 ifTrue:[ |
1008 (treeView selection size > 1 and: |
1019 (treeView selection size > 1 and: |
1009 [(treeView model list at: treeView selection first) contents view == aComponent]) |
1020 [(treeView model list at: treeView selection first) contents view == aComponent]) |
1010 ifTrue: [self paint: Color red] |
1021 ifTrue: [self paint: handleMasterColor] |
1011 ifFalse:[self paint: Black]. |
1022 ifFalse:[self paint: handleColor]. |
1012 |
1023 |
1013 (wasClipped := clipChildren) ifTrue:[ |
1024 (wasClipped := clipChildren) ifTrue:[ |
1014 self clippedByChildren:(clipChildren := false). |
1025 self clippedByChildren:(clipChildren := false). |
1015 ]. |
1026 ]. |
1016 |
1027 |