--- a/AbstractFileFinderApplicationComponent.st	Mon Sep 11 09:07:04 2017 +0200
+++ b/AbstractFileFinderApplicationComponent.st	Mon Sep 11 09:07:18 2017 +0200
@@ -486,6 +486,15 @@
 
 hasTwoFilesSelected
     ^ self selectionHolder value size == 2
+!
+
+hasTwoImageFilesSelected
+    |sel|
+
+    sel := self selectionHolder value.
+    ^ (sel size == 2) and:[ sel conform:[:fn | fn asFilename mimeTypeFromName isImageType] ]
+
+    "Created: / 10-09-2017 / 16:54:55 / cg"
 ! !
 
 !AbstractFileFinderApplicationComponent methodsFor:'tasks'!