--- a/ImageEditor.st	Wed Jul 29 20:02:02 2009 +0200
+++ b/ImageEditor.st	Fri Aug 07 18:35:42 2009 +0200
@@ -173,6 +173,7 @@
     ].
 
     ^ Dictionary new
+        at: #depth32 put:(FixedPalette redShift:16 redMask:16rFF greenShift:8 greenMask:16rFF blueShift:0 blueMask:16rFF);
         at: #depth24 put:(FixedPalette redShift:16 redMask:16rFF greenShift:8 greenMask:16rFF blueShift:0 blueMask:16rFF);
         at: #masked24 put:(FixedPalette redShift:16 redMask:16rFF greenShift:8 greenMask:16rFF blueShift:0 blueMask:16rFF);
         at: #depth16 put:(FixedPalette redShift:11 redMask:16r1F greenShift:5 greenMask:16r3F blueShift:0 blueMask:16r1F);
@@ -198,6 +199,7 @@
 
 namesOfColorMaps
     ^ Dictionary new
+        at: #depth32 put: '32-plane (rgba)';
         at: #depth24 put: '24-plane';
         at: #masked24 put: '24-plane + mask';
         at: #depth16 put: '16-plane';
@@ -319,6 +321,12 @@
 #colorMap8M
 'Convert to depth-8 image plus mask.'
 
+#colorMap24
+'Convert to depth-24 image (rgb).'
+
+#colorMap32
+'Convert to depth-32 image (rgba).'
+
 #colorMapTable
 'Shows a list of used colors of the image.'
 
@@ -1875,6 +1883,18 @@
                         choice: colorMapMode
                         choiceValue: masked24
                       )
+                     (MenuItem
+                        label: '-'
+                      )
+                     (MenuItem
+                        activeHelpKey: colorMap32
+                        label: '32-Plane (rgba)'
+                        itemValue: colorMapMode:
+                        translateLabel: true
+                        argument: depth32
+                        choice: colorMapMode
+                        choiceValue: depth32
+                      )
                      )
                     nil
                     nil