--- a/ColorInspectorView.st Tue Mar 13 18:58:10 2007 +0100
+++ b/ColorInspectorView.st Wed Mar 14 10:40:22 2007 +0100
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libtool' }"
InspectorView subclass:#ColorInspectorView
@@ -69,38 +68,8 @@
"
! !
-!ColorInspectorView methodsFor:'private'!
-
-displayStringForValue:someValue
- "return the values displayString"
-
- |sel|
-
- sel := listView at:selectionIndex.
-
- (sel startsWith:$-) ifTrue:[
- (sel startsWith:'-rgb') ifTrue:[
- ^ '#' , ((inspectedObject rgbValue printStringRadix:16) leftPaddedTo:6 with:$0)
- ].
- ].
- ^ super displayStringForValue:someValue
-!
-
-pseudoFieldList
- ^ #(
- '-rgb'
- )
-!
-
-valueForSpecialLine:line
- (line startsWith:'-rgb') ifTrue:[
- ^ inspectedObject rgbValue
- ].
- ^ super valueForSpecialLine:line
-! !
-
!ColorInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.10 2005-08-05 10:43:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.11 2007-03-14 09:40:22 cg Exp $'
! !