diff -r 80ddafc474fb -r 963042f2c474 ImageEditor.st
--- a/ImageEditor.st	Mon Mar 20 09:38:37 2006 +0100
+++ b/ImageEditor.st	Mon Mar 20 22:29:49 2006 +0100
@@ -3025,12 +3025,13 @@
 !
 
 update:something with:aParameter from:changedObject
-    |clrIndex img clr changedColor|
+    |clrIndex img imagePreView clr changedColor|
 
     img := self image.
+    imagePreView := self imagePreView.
 
     changedObject == self tileModeHolder ifTrue:[
-        self imagePreView 
+        imagePreView 
             tileMode:(changedObject value) tileOffset:(img extent);
             clear; 
             invalidate.
@@ -3040,7 +3041,7 @@
         clr := changedObject value isNil 
                     ifTrue:[imageEditView viewBackground]
                     ifFalse:[Color perform:changedObject value].
-        self imagePreView 
+        imagePreView 
             viewBackground:clr;
             clear; 
             invalidate.
@@ -3080,21 +3081,21 @@
             ^ self.
         ].
         something == #image ifTrue:[
-            self imagePreView image:img.
+            imagePreView image:img.
             self updateListOfColorsAndColormapMode.
             self tileModeHolder value ifTrue:[
-                self imagePreView tileMode:true tileOffset:(img extent).
+                imagePreView tileMode:true tileOffset:(img extent).
             ].
             ^ self.
         ].
         something == #subImageIn ifTrue:[
-            self imagePreView image ~~ img ifTrue:[
+            imagePreView image ~~ img ifTrue:[
                 self error:'internal error' mayProceed:true.
             ].
             self tileModeHolder value ifTrue:[
-                self imagePreView invalidate.
+                imagePreView invalidate.
             ] ifFalse:[
-                self imagePreView invalidate:aParameter.
+                imagePreView invalidate:aParameter.
             ].
             ^ self.
         ].
@@ -3118,7 +3119,7 @@
     ].
 
     changedObject == imageEditView image ifTrue:[
-        self halt:'to be implemented'.
+        "/ self halt:'to be implemented'.
         ^ self.
     ].