--- 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 $'
! !