equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
14 |
13 |
15 InspectorView subclass:#ColorInspectorView |
14 InspectorView subclass:#ColorInspectorView |
16 instanceVariableNames:'colorView' |
15 instanceVariableNames:'colorView' |
17 classVariableNames:'' |
16 classVariableNames:'' |
67 ColorInspectorView inspect:(Color yellow) |
66 ColorInspectorView inspect:(Color yellow) |
68 ColorInspectorView inspect:(Color name:'brown') lightened) |
67 ColorInspectorView inspect:(Color name:'brown') lightened) |
69 " |
68 " |
70 ! ! |
69 ! ! |
71 |
70 |
72 !ColorInspectorView methodsFor:'private'! |
|
73 |
|
74 displayStringForValue:someValue |
|
75 "return the values displayString" |
|
76 |
|
77 |sel| |
|
78 |
|
79 sel := listView at:selectionIndex. |
|
80 |
|
81 (sel startsWith:$-) ifTrue:[ |
|
82 (sel startsWith:'-rgb') ifTrue:[ |
|
83 ^ '#' , ((inspectedObject rgbValue printStringRadix:16) leftPaddedTo:6 with:$0) |
|
84 ]. |
|
85 ]. |
|
86 ^ super displayStringForValue:someValue |
|
87 ! |
|
88 |
|
89 pseudoFieldList |
|
90 ^ #( |
|
91 '-rgb' |
|
92 ) |
|
93 ! |
|
94 |
|
95 valueForSpecialLine:line |
|
96 (line startsWith:'-rgb') ifTrue:[ |
|
97 ^ inspectedObject rgbValue |
|
98 ]. |
|
99 ^ super valueForSpecialLine:line |
|
100 ! ! |
|
101 |
|
102 !ColorInspectorView class methodsFor:'documentation'! |
71 !ColorInspectorView class methodsFor:'documentation'! |
103 |
72 |
104 version |
73 version |
105 ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.10 2005-08-05 10:43:40 cg Exp $' |
74 ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.11 2007-03-14 09:40:22 cg Exp $' |
106 ! ! |
75 ! ! |