--- a/AbstractFileBrowser.st	Mon Sep 11 09:07:48 2017 +0200
+++ b/AbstractFileBrowser.st	Mon Sep 11 09:08:06 2017 +0200
@@ -2594,10 +2594,15 @@
                   itemValue: fileFindAllDuplicates
                 )
                (MenuItem
-                  label: 'Similar Image Files'
+                  label: 'Similar Image Files (by Colors)'
                   itemValue: fileFindSimilarImages
                   isVisible: hasImageColorHistogram
                 )
+               (MenuItem
+                  label: 'Similar Image Files (by Form)'
+                  itemValue: fileFindSimilarImagesByForm
+                  isVisible: hasImageHistogram
+                )
                )
               nil
               nil
@@ -2607,6 +2612,8 @@
         nil
         nil
       )
+
+    "Modified: / 10-09-2017 / 16:50:09 / cg"
 !
 
 viewDetailsMenuSpec
@@ -5624,6 +5631,17 @@
     ]
 !
 
+showDeltaBetweenTwoImageFiles
+     |i1 i2 delta|
+
+     i1 := Image fromFile:(self selectedFileNames first).
+     i2 := Image fromFile:(self selectedFileNames second).
+     delta := ImageAlgorithms new differenceImageBetween:i1 and:i2.
+     ImageView openOn:delta.
+
+    "Created: / 10-09-2017 / 16:59:08 / cg"
+!
+
 smalltalkDirectory
     |stxPath|
 
@@ -9005,6 +9023,12 @@
     ^ ImageColorHistogram notNil
 !
 
+hasImageHistogram
+    ^ ImageAlgorithms notNil
+
+    "Created: / 10-09-2017 / 16:50:34 / cg"
+!
+
 hasSubversionSupport
     ^ ConfigurableFeatures includesFeature: #SubversionSupport