checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 08 May 1999 20:59:28 +0200
changeset 1121 9ceac76e1c8d
parent 1120 230fe13c4e51
child 1122 66e895f34b9b
checkin from browser
ImageEditor.st
--- a/ImageEditor.st	Thu May 06 23:11:00 1999 +0200
+++ b/ImageEditor.st	Sat May 08 20:59:28 1999 +0200
@@ -2670,28 +2670,29 @@
             |image d8image img|
 
             image := Image fromUser.
-
-            image depth > 8 ifTrue:[
-                Object errorSignal handle:[:ex |
-                    ex signal == Object haltSignal ifTrue:[ex reject].
-                    ex signal == Signal noHandlerSignal ifTrue:[ex reject].
-
-                    self warn:'Could not convert to depth8 image (too many colors)'.
-                    d8image := nil.
-                ] do:[
-                    d8image := Depth8Image new.
-                    d8image fromImage:image.
+            image isNil ifFalse:[
+                image depth > 8 ifTrue:[
+                    Object errorSignal handle:[:ex |
+                        ex signal == Object haltSignal ifTrue:[ex reject].
+                        ex signal == Signal noHandlerSignal ifTrue:[ex reject].
+
+                        self warn:'Could not convert to depth8 image (too many colors)'.
+                        d8image := nil.
+                    ] do:[
+                        d8image := Depth8Image new.
+                        d8image fromImage:image.
+                    ].
+                    d8image notNil ifTrue:[
+                        image := d8image
+                    ]
                 ].
-                d8image notNil ifTrue:[
-                    image := d8image
+                (imageEditView image:image) notNil ifTrue:[
+                    self listOfColors contents:(image colorMap).
+                    self findColorMapMode.
+                    self updateLabelsAndHistory.
                 ]
-            ].
-            (imageEditView image:image) notNil ifTrue:[
-                self listOfColors contents:(image colorMap).
-                self findColorMapMode.
-                self updateLabelsAndHistory.
-            ]
-                      ] 
+             ] 
+        ] 
         afterSeconds:1
 
     "Created: / 29.7.1998 / 21:24:42 / cg"