*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 14 Mar 2007 10:40:22 +0100
changeset 7738 c731a6d74f04
parent 7737 49c47dee4877
child 7739 a686a2a12c34
*** empty log message ***
ColorInspectorView.st
--- 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 $'
 ! !