--- a/ColorInspectorView.st Fri Aug 05 12:05:11 2005 +0200
+++ b/ColorInspectorView.st Fri Aug 05 12:43:51 2005 +0200
@@ -80,7 +80,7 @@
(sel startsWith:$-) ifTrue:[
(sel startsWith:'-rgb') ifTrue:[
- ^ '#' , (inspectedObject rgbValue printStringRadix:16)
+ ^ '#' , ((inspectedObject rgbValue printStringRadix:16) leftPaddedTo:6 with:$0)
].
].
^ super displayStringForValue:someValue
@@ -102,5 +102,5 @@
!ColorInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.9 2005-08-04 09:59:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.10 2005-08-05 10:43:40 cg Exp $'
! !