equal
deleted
inserted
replaced
67 ColorInspectorView inspect:(Color yellow) |
67 ColorInspectorView inspect:(Color yellow) |
68 ColorInspectorView inspect:(Color name:'brown') lightened) |
68 ColorInspectorView inspect:(Color name:'brown') lightened) |
69 " |
69 " |
70 ! ! |
70 ! ! |
71 |
71 |
|
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) |
|
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 |
72 !ColorInspectorView class methodsFor:'documentation'! |
102 !ColorInspectorView class methodsFor:'documentation'! |
73 |
103 |
74 version |
104 version |
75 ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.8 2001-09-25 12:57:48 cg Exp $' |
105 ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.9 2005-08-04 09:59:27 cg Exp $' |
76 ! ! |
106 ! ! |