hg/stx-libwidg2: comparison ImageEditView.st

equal deleted inserted replaced

-:efe94f736058
+:bc987849ea84
 "Modified: / 10.2.2000 / 23:37:04 / cg"
 !
 flipSubImage:how in:imageBox
 "/ now, do it
+"/ caveat: this should go into image class
 |x0 y0 x1 y1 image t|
 self makeUndo.
 0 to:((y1-y0)//2) do:[:dy |
 x0 to:x1 do:[:x |
 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.
+image mask notNil ifTrue:[
 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:[
 0 to:((x1-x0)//2) do:[:dx |
 y0 to:y1 do:[:y |
 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 mask notNil ifTrue:[
-image maskAtX:(x0+dx) y:y put:(image maskAtX:(x1-dx) y:y).
+t := image maskAtX:(x0+dx) y:y.
-image maskAtX:(x1-dx) y:y put:t.
+image maskAtX:(x0+dx) y:y put:(image maskAtX:(x1-dx) y:y).
+image maskAtX:(x1-dx) y:y put:t.
+].
 ].
 ]
 ].
 self setModified.
 ! !
 !ImageEditView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.260 2014-06-22 09:08:15 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.261 2014-06-22 09:09:54 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.260 2014-06-22 09:08:15 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.261 2014-06-22 09:09:54 cg Exp $'
 ! !
 ImageEditView initialize!

changeset 4624	bc987849ea84
parent 4623	efe94f736058
child 4646	b1faa362e0ac