changed #inspectorExtraAttributes
authorClaus Gittinger <cg@exept.de>
Wed, 14 Mar 2007 09:30:45 +0100
changeset 4742 623058a1adca
parent 4741 c5c2db6f830a
child 4743 6e87c8cb8489
changed #inspectorExtraAttributes
Color.st
--- a/Color.st	Tue Mar 13 07:30:18 2007 +0100
+++ b/Color.st	Wed Mar 14 09:30:45 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 Object subclass:#Color
@@ -4829,6 +4828,17 @@
     "Modified: / 8.9.1998 / 17:32:10 / cg"
 ! !
 
+!Color methodsFor:'inspecting'!
+
+inspectorExtraAttributes
+    ^ Dictionary new
+        declareAllNewFrom:(super inspectorExtraAttributes ? #());
+        add:'-rgb' ->
+            [
+                self rgbValue hexPrintString
+            ];
+        yourself
+! !
 
 !Color methodsFor:'instance creation'!
 
@@ -5350,7 +5360,7 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.201 2006-09-18 19:49:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.202 2007-03-14 08:30:45 cg Exp $'
 ! !
 
 Color initialize!