ImageEditView.st
changeset 6185 cdf3556a2bdd
parent 6161 3353ad05fdb3
child 6208 efd39055fb51
--- a/ImageEditView.st	Fri Nov 08 20:41:43 2019 +0100
+++ b/ImageEditView.st	Sat Nov 16 16:53:30 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG
 	      All Rights Reserved
@@ -2339,8 +2337,10 @@
 
     choosenBox := self dragRectangleStartingAt: aPoint emphasis: #inverseFilledBox.
     choosenBox notNil ifTrue:[
-        imageBox := choosenBox origin//magnification extent: (choosenBox extent//magnification).
-        self specialOperation:#editSubImage on:imageBox withColor:nil.
+        (choosenBox width > 0 and:[choosenBox height > 0]) ifTrue:[
+            imageBox := choosenBox origin//magnification extent: (choosenBox extent//magnification).
+            self specialOperation:#editSubImage on:imageBox withColor:nil.
+        ]
     ]
 
     "Created: / 20-02-2017 / 17:27:50 / cg"
@@ -3408,7 +3408,7 @@
 
         image depth ~~ image bitsPerSample sum ifTrue:[
             s print:' ('.    
-            image bitsPerSample do:[:each | s print:each] separatedBy:[s print:'·'].   
+            image bitsPerSample do:[:each | s print:each] separatedBy:[s print:'·'].   
             s print:')'.    
         ].