--- 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!