--- a/ImageEditor.st	Tue Nov 22 03:45:03 2016 +0100
+++ b/ImageEditor.st	Thu Dec 01 11:02:41 2016 +0100
@@ -59,7 +59,7 @@
 
 !ImageEditor class methodsFor:'instance creation'!
 
-openLoadingImageWith:aBlock
+openLoadingImageWith:aBlock modal:modalBoolean
     "opens an Image Editor on anImage"
 
     |editor|
@@ -67,7 +67,11 @@
     editor := self new.
     editor allButOpen.
     aBlock value:editor.
-    editor openWindow.
+    modalBoolean ifTrue:[
+        editor openWindowModal.
+    ] ifFalse:[
+        editor openWindow.
+    ].
     ^ editor
 !
 
@@ -100,6 +104,18 @@
     "
 !
 
+openModalOnFile:aFileName
+    "opens an Image Editor on aFileName"
+
+    self openLoadingImageWith:[:editor | 
+        editor loadFromFile:aFileName.
+    ] modal:true.
+
+    "
+     self openModalOnFile: '../../goodies/bitmaps/gifImages/back.gif'
+    "
+!
+
 openModalOnImage:anImage
     "opens a modal Image Editor on an image.
      Returns the modified image or nil if unsaved/unchanged"
@@ -123,7 +139,7 @@
 
     self openLoadingImageWith:[:editor | 
         editor loadFromClass:aClass theNonMetaclass andSelector:aSelector.
-    ]
+    ] modal:false.
 
     "
      self openOnClass:self andSelector:#leftMouseKeyIcon
@@ -138,7 +154,7 @@
 
     self openLoadingImageWith:[:editor | 
         editor loadFromFile:aFileName.
-    ]
+    ] modal:false.
 
     "
      self openOnFile: '../../goodies/bitmaps/gifImages/back.gif'
@@ -152,7 +168,7 @@
 
     self openLoadingImageWith:[:editor | 
         editor loadFromImage: anImage.
-    ]
+    ] modal:false
 
     "
      self openOnImage: Icon startIcon