equal
deleted
inserted
replaced
32 other person. No title to or ownership of the software is |
32 other person. No title to or ownership of the software is |
33 hereby transferred. |
33 hereby transferred. |
34 " |
34 " |
35 ! ! |
35 ! ! |
36 |
36 |
|
37 !ColorInspectorView class methodsFor:'menu specs'! |
|
38 |
|
39 colorMenu |
|
40 "This resource specification was automatically generated |
|
41 by the MenuEditor of ST/X." |
|
42 |
|
43 "Do not manually edit this!! If it is corrupted, |
|
44 the MenuEditor may not be able to read the specification." |
|
45 |
|
46 " |
|
47 MenuEditor new openOnClass:ColorInspectorView andSelector:#colorMenu |
|
48 (Menu new fromLiteralArrayEncoding:(ColorInspectorView colorMenu)) startUp |
|
49 " |
|
50 |
|
51 <resource: #menu> |
|
52 |
|
53 ^ |
|
54 #(Menu |
|
55 ( |
|
56 (MenuItem |
|
57 label: 'Edit' |
|
58 itemValue: openColorEditor |
|
59 translateLabel: true |
|
60 ) |
|
61 ) |
|
62 nil |
|
63 nil |
|
64 ) |
|
65 ! ! |
|
66 |
37 !ColorInspectorView methodsFor:'accessing'! |
67 !ColorInspectorView methodsFor:'accessing'! |
38 |
68 |
39 inspect:anObject |
69 inspect:anObject |
40 super inspect:anObject. |
70 super inspect:anObject. |
41 realized ifFalse:[^ self]. |
71 realized ifFalse:[^ self]. |
59 sub origin:0.0@0.0 corner:1.0@0.8. |
89 sub origin:0.0@0.0 corner:1.0@0.8. |
60 newPanel addSubView:sub. |
90 newPanel addSubView:sub. |
61 |
91 |
62 colorView := View in:newPanel. |
92 colorView := View in:newPanel. |
63 colorView origin:(0.0 @ 0.8) corner:(1.0 @ 1.0). |
93 colorView origin:(0.0 @ 0.8) corner:(1.0 @ 1.0). |
|
94 colorView |
|
95 menuHolder:(self class colorMenu); |
|
96 menuPerformer:self |
64 |
97 |
65 " |
98 " |
66 ColorInspectorView inspect:(Color yellow) |
99 ColorInspectorView inspect:(Color yellow) |
67 ColorInspectorView inspect:(Color name:'brown') lightened) |
100 ColorInspectorView inspect:(Color name:'brown') lightened) |
68 " |
101 " |
69 ! ! |
102 ! ! |
70 |
103 |
|
104 !ColorInspectorView methodsFor:'user actions'! |
|
105 |
|
106 openColorEditor |
|
107 ColorEditDialog openOn:inspectedObject |
|
108 ! ! |
|
109 |
71 !ColorInspectorView class methodsFor:'documentation'! |
110 !ColorInspectorView class methodsFor:'documentation'! |
72 |
111 |
73 version |
112 version |
74 ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.11 2007-03-14 09:40:22 cg Exp $' |
113 ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.12 2008-05-30 09:05:30 cg Exp $' |
75 ! ! |
114 ! ! |