Color.st
changeset 5337 dae799444a35
parent 5144 d93391e9ea8d
child 5419 7718ae7f7e6b
--- a/Color.st	Sat Sep 05 00:41:56 2009 +0200
+++ b/Color.st	Tue Sep 08 19:19:48 2009 +0200
@@ -1022,14 +1022,15 @@
 
     ^ self 
         name:colorName 
-        ifIllegal:[InvalidColorNameSignal
-                        raiseRequestWith:colorName
-                        errorString:' : ' , colorName]
-
-    "
-     Color name:'brown'
+        ifIllegal:[
+            InvalidColorNameSignal 
+                raiseRequestWith:colorName errorString:' : ' , colorName
+        ]
+
+    "
+     Color name:'brown'      
+     Color name:'snow'      
      Color name:'foo'
-     Color name:'snow'
     "
 
     "Modified: 4.4.1997 / 15:32:33 / cg"
@@ -1071,7 +1072,8 @@
      Color name:'brown' ifIllegal:[Color black]
      Color name:'red' ifIllegal:[Color black]      
      Color name:'fuchsia' ifIllegal:[Color black]      
-     Color name:'foo' ifIllegal:[Color black]
+     Color name:'foo' ifIllegal:[Color black]      
+     Color name:'foo' ifIllegal:[nil]               
     "
 
     "Modified: 6.3.1997 / 02:32:41 / cg"
@@ -5544,7 +5546,7 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.216 2009-01-12 08:56:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.217 2009-09-08 17:19:48 cg Exp $'
 ! !
 
 Color initialize!