--- a/Color.st	Tue Apr 01 21:11:31 2003 +0200
+++ b/Color.st	Wed Apr 02 19:04:44 2003 +0200
@@ -1294,7 +1294,17 @@
 !Color class methodsFor:'accessing'!
 
 allocatedColorsOn:aDevice
-    "return a collection of colors available on aDevice"
+    "return a collection of colors which have already been allocated
+     on aDevice."
+
+    self obsoleteMethodWarning:'use #allocatedColorsOnDevice:'.
+
+    ^ self allocatedColorsOnDevice:aDevice
+!
+
+allocatedColorsOnDevice:aDevice
+    "return a collection of colors which have already been allocated
+     on aDevice."
 
     |colors|
 
@@ -1303,13 +1313,13 @@
         clr colorId notNil ifTrue:[
             colors add:clr
         ] ifFalse:[
-            'color - oops' printCR.
+            'Color [oops]: nil colorId in color' infoPrintCR.
         ]
     ].
     ^ colors asArray
 
     "
-     Color allocatedColorsOn:Display
+     Color allocatedColorsOnDevice:Display
     "
 
     "Modified: 24.2.1997 / 18:16:14 / cg"
@@ -5178,7 +5188,7 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.174 2003-03-02 20:40:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.175 2003-04-02 17:04:44 cg Exp $'
 ! !
 
 Color initialize!