--- a/Colormap.st	Thu Apr 10 16:29:56 2003 +0200
+++ b/Colormap.st	Thu Apr 10 16:31:49 2003 +0200
@@ -152,6 +152,11 @@
     "given a sequenceable collection of colors, return a new instance
      of myself. Renamed from #fromColors: for ST-80 compatibility."
 
+"/    aColorArray size == 2 ifTrue:[
+"/        "/ mhmh - actually a monochrome palette.
+"/        "/ should return an instance of MonochromePalette
+"/        self halt.
+"/    ].
     ^ self new colors:aColorArray
 
     "
@@ -470,5 +475,5 @@
 !Colormap class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Colormap.st,v 1.32 2003-04-10 14:29:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Colormap.st,v 1.33 2003-04-10 14:31:49 cg Exp $'
 ! !