ColorInspectorView.st
changeset 6375 b4f3981447a7
parent 6372 d59bab947578
child 7738 c731a6d74f04
--- 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 $'
 ! !