ImageEditView.st
changeset 1038 6c0bb03e88a1
parent 1037 3735af6b5b24
child 1047 95f10ea8653d
--- a/ImageEditView.st	Fri Jul 31 02:39:45 1998 +0200
+++ b/ImageEditView.st	Fri Jul 31 02:57:01 1998 +0200
@@ -560,8 +560,13 @@
     image rectangle: (imageBox := choosedBox origin//magnification extent: (choosedBox extent//magnification)) withColor: self selectedColor.
     image restored.
     self redraw: (choosedBox expandedBy: 1).
+
+    "/ cg: what a kludge - please change to use a valueHolder,
+    "/ which gets the information ...
     masterApplication imagePreView redraw: (imageBox expandedBy: 1).
     modified := true
+
+    "Modified: / 31.7.1998 / 02:46:02 / cg"
 !
 
 changeGridMagnification
@@ -708,6 +713,8 @@
         [
             filledPoints := image floodFillAt: aPoint//magnification withColor: self selectedColor.
             image restored.
+
+            "/ animation effect ...    
             filledPoints size < 300
             ifTrue:
             [
@@ -717,6 +724,8 @@
             [
                 self invalidate
             ].
+            "/ cg: what a kludge - please change to use a valueHolder,
+            "/ which gets the information ...
             masterApplication imagePreView invalidate.
             modified := true
         ] valueOnUnwindDo:[
@@ -725,7 +734,7 @@
         self updateActivity:''
     ]
 
-    "Modified: / 29.7.1998 / 18:41:10 / cg"
+    "Modified: / 31.7.1998 / 02:51:11 / cg"
 !
 
 filledBoxAt: aPoint
@@ -735,8 +744,12 @@
     image fillRectangle: (imageBox := choosedBox origin//magnification extent: (choosedBox extent//magnification)) withColor: self selectedColor.
     image restored.
     self redraw: (choosedBox expandedBy: 1).
+    "/ cg: what a kludge - please change to use a valueHolder,
+    "/ which gets the information ...
     masterApplication imagePreView redraw: (imageBox expandedBy: 1).
     modified := true
+
+    "Modified: / 31.7.1998 / 02:46:20 / cg"
 !
 
 flipHorizontal
@@ -965,12 +978,18 @@
         windowGroup withCursor:Cursor execute do:[
             modified := false. 
             self image: undoImages removeLast.
-            masterApplication listOfColors contents: image colorMap.
-            masterApplication findColorMapMode.
-            undoImages isEmpty ifTrue: [masterApplication valueOfCanUndo value: false].
-            self invalidate
+            "/ cg: what a kludge - please change to use a valueHolder,
+            masterApplication notNil ifTrue:[
+                masterApplication listOfColors contents: image colorMap.
+                masterApplication findColorMapMode.
+                undoImages isEmpty ifTrue: [masterApplication valueOfCanUndo value: false].
+            ].
+            "/ cg: not needed - image: already does it.
+"/            self invalidate
         ]
     ]
+
+    "Modified: / 31.7.1998 / 02:49:04 / cg"
 ! !
 
 !ImageEditView methodsFor:'image setting'!
@@ -1382,7 +1401,10 @@
 releaseUndos
 
     undoImages removeAll.
+    "/ cg: what a kludge - please change to use a valueHolder,
     masterApplication valueOfCanUndo value: false.
+
+    "Modified: / 31.7.1998 / 02:47:21 / cg"
 ! !
 
 !ImageEditView methodsFor:'testing'!
@@ -1407,5 +1429,5 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.93 1998-07-31 00:39:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.94 1998-07-31 00:57:01 cg Exp $'
 ! !