diff -r 8bde5f1b8600 -r 218b7fcff239 ImageEditor.st
--- a/ImageEditor.st	Thu Feb 10 00:47:10 2000 +0100
+++ b/ImageEditor.st	Fri Feb 11 14:09:42 2000 +0100
@@ -1432,7 +1432,9 @@
 imageEditView
     "returns the view of the image"
 
-    ^imageEditView := (builder componentAt: #imageEditView) subViews first 
+    ^ imageEditView := (builder componentAt: #imageEditView) scrolledView
+
+    "Modified: / 10.2.2000 / 23:19:20 / cg"
 !
 
 imagePreView
@@ -1610,9 +1612,32 @@
         ^ self.
     ].
 
+    changedObject == imageEditView ifTrue:[
+        something == #imageColors ifTrue:[
+            self listOfColors contents:self image colorMap.
+            self findColorMapMode.
+            ^ self.
+        ].
+        something == #image ifTrue:[
+            self imagePreView image:self image.
+            ^ self.
+        ].
+        something == #subImageIn ifTrue:[
+            self imagePreView redraw:aParameter.
+            ^ self.
+        ].
+
+        ^ self.
+    ].
+
+    changedObject == imageEditView image ifTrue:[
+        self halt.
+        ^ self.
+    ].
+
     super update:something with:aParameter from:changedObject
 
-    "Modified: / 18.8.1998 / 17:18:42 / cg"
+    "Modified: / 10.2.2000 / 23:36:49 / cg"
 !
 
 updateForNoImage
@@ -1870,14 +1895,17 @@
 mouseKeyColorMode
     "returns mouseKeyColorMode"
 
-    mouseKeyColorMode isNil
-    ifTrue:
-    [
+    mouseKeyColorMode isNil ifTrue:[
         mouseKeyColorMode := 1 asValue.
-        mouseKeyColorMode onChangeEvaluate: [imageEditView mouseKeyColorMode: mouseKeyColorMode value. self selectionOfColor value: (self listOfColors indexOf: imageEditView selectedColor).]
+        mouseKeyColorMode onChangeEvaluate: [
+            imageEditView mouseKeyColorMode:mouseKeyColorMode value. 
+            self selectionOfColor value: (self listOfColors indexOf:imageEditView selectedColor).
+        ]
     ].
 
     ^mouseKeyColorMode
+
+    "Modified: / 10.2.2000 / 23:16:42 / cg"
 ! !
 
 !ImageEditor methodsFor:'queries'!
@@ -1969,6 +1997,14 @@
     imageEditView undoImages addDependent:self.
     imageEditView imageInfoHolder:(self imageInfoHolder).
     imageEditView activityInfoHolder:(self activityInfoHolder).
+    imageEditView clickInfoCallBack:[:button :point | 
+                        |mouseButtonColorToolBar|
+
+                        mouseButtonColorToolBar := builder componentAt:#MouseButtonColorToolBar.
+                        (mouseButtonColorToolBar itemAt:button) toggleIndication.
+                        mouseButtonColorToolBar do: [:i| i updateIndicators].
+                  ].
+    imageEditView addDependent:self.
 
     postOpenAction notNil ifTrue: [postOpenAction value].
 
@@ -1976,7 +2012,7 @@
 
     aBuilder keyboardProcessor menuBar:nil.
 
-    "Modified: / 29.7.1998 / 18:49:20 / cg"
+    "Modified: / 10.2.2000 / 23:17:43 / cg"
 ! !
 
 !ImageEditor methodsFor:'user actions - colormap'!