# HG changeset patch
# User tz
# Date 885478313 -3600
# Node ID dac8dc1f9dc8bed184ea5940642dc48373f28ab8
# Parent  9f115893b4dffbc4f09052c871b8a3e00fb0701e
if none image found for loading clear all

diff -r 9f115893b4df -r dac8dc1f9dc8 ImageEditor.st
--- a/ImageEditor.st	Wed Jan 21 20:53:10 1998 +0100
+++ b/ImageEditor.st	Thu Jan 22 15:11:53 1998 +0100
@@ -964,7 +964,6 @@
 imagePreView
 
     ^(builder componentAt: #imagePreView) subViews first 
-
 !
 
 resourceClassInputField
@@ -1216,6 +1215,17 @@
 
 !
 
+updateForNoneImage
+
+    self imageIsLoaded value: false.
+    self listOfColors removeAll.
+    self imagePreView image: nil
+
+
+
+
+!
+
 updateInfoLabel
 
     |usedColors|
@@ -1451,7 +1461,10 @@
         self findColorMapMode.     
         self updateInputFieldsAndLabelsAndHistory.
     ]
-
+    ifFalse:
+    [
+        self updateForNoneImage
+    ]
 !
 
 loadFromImage: image
@@ -1471,6 +1484,10 @@
         self findColorMapMode.
         self updateInputFieldsAndLabelsAndHistory.
     ]
+    ifFalse:
+    [
+        self updateForNoneImage
+    ]
 !
 
 loadFromInClassesOf: aSuperclassOrSymbol
@@ -1483,6 +1500,10 @@
         self findColorMapMode.
         self updateInputFieldsAndLabelsAndHistory.
     ]
+    ifFalse:
+    [
+        self updateForNoneImage
+    ]
 !
 
 loadFromMessage: aMessage
@@ -1494,6 +1515,11 @@
         self findColorMapMode.
         self updateInputFieldsAndLabelsAndHistory.
     ]
+    ifFalse:
+    [
+        self updateForNoneImage
+    ]
+
 !
 
 loadFromOrPrepareForMessage: aMessage