*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 05 Aug 2005 16:26:02 +0200
changeset 1937 73fb270a4da9
parent 1936 e2ce1a4139a2
child 1938 99d611caf3bd
*** empty log message ***
ImageEditor.st
--- a/ImageEditor.st	Fri Aug 05 16:09:21 2005 +0200
+++ b/ImageEditor.st	Fri Aug 05 16:26:02 2005 +0200
@@ -3854,7 +3854,7 @@
         ((prevMode = aMode)
         or:[depth > oldImage depth
         or:[self confirm:(resources string:quest)]]) ifTrue:[
-            (newColorMap isFixedPalette) ifFalse:[
+            (newColorMap isOrderedCollection or:[newColorMap isFixedPalette not]) ifTrue:[
 
                 "/ keep the colormap
                 newColorMap atAllPut:Color black.
@@ -4000,7 +4000,7 @@
             image mask: nil.
         ]. 
 
-        newColorMap isFixedPalette ifFalse:[
+        (newColorMap isOrderedCollection or:[newColorMap isFixedPalette not]) ifTrue:[
             realColorMap := OrderedCollection new.
             image realColorMap do:[:clr|
                 (realColorMap includes: clr) ifFalse: [realColorMap add: clr]