class: ImageEditView
authorClaus Gittinger <cg@exept.de>
Sun, 22 Jun 2014 11:08:15 +0200
changeset 4623 efe94f736058
parent 4622 ee2ff15466e2
child 4624 bc987849ea84
class: ImageEditView changed: #flipSubImage:in:
ImageEditView.st
--- a/ImageEditView.st	Sat Jun 21 13:49:41 2014 +0200
+++ b/ImageEditView.st	Sun Jun 22 11:08:15 2014 +0200
@@ -1117,6 +1117,8 @@
 
     |x0 y0 x1 y1 image t|
 
+    self makeUndo.
+
     x0 := imageBox left.
     y0 := imageBox top.
     x1 := imageBox right-1.
@@ -1130,6 +1132,10 @@
                 t := image pixelAtX:x y:(y0+dy).
                 image pixelAtX:x y:(y0+dy) put:(image pixelAtX:x y:(y1-dy)).
                 image pixelAtX:x y:(y1-dy) put:t.
+
+                t := image maskAtX:x y:(y0+dy).
+                image maskAtX:x y:(y0+dy) put:(image maskAtX:x y:(y1-dy)).
+                image maskAtX:x y:(y1-dy) put:t.
             ].
         ]
     ] ifFalse:[
@@ -1138,6 +1144,10 @@
                 t := image pixelAtX:(x0+dx) y:y.
                 image pixelAtX:(x0+dx) y:y put:(image pixelAtX:(x1-dx) y:y).
                 image pixelAtX:(x1-dx) y:y put:t.
+
+                t := image maskAtX:(x0+dx) y:y.
+                image maskAtX:(x0+dx) y:y put:(image maskAtX:(x1-dx) y:y).
+                image maskAtX:(x1-dx) y:y put:t.
             ].
         ]
     ].
@@ -2780,11 +2790,11 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.259 2014-02-18 14:45:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.260 2014-06-22 09:08:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.259 2014-02-18 14:45:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.260 2014-06-22 09:08:15 cg Exp $'
 ! !