--- a/ImageEditView.st	Sun Jun 22 11:08:15 2014 +0200
+++ b/ImageEditView.st	Sun Jun 22 11:09:54 2014 +0200
@@ -1114,6 +1114,7 @@
 
 flipSubImage:how in:imageBox
     "/ now, do it
+    "/ caveat: this should go into image class
 
     |x0 y0 x1 y1 image t|
 
@@ -1132,10 +1133,11 @@
                 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.
+                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:[
@@ -1145,9 +1147,11 @@
                 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.
+                image mask notNil ifTrue:[
+                    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.
+                ].
             ].
         ]
     ].
@@ -2790,11 +2794,11 @@
 !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 $'
 ! !