DirectoryContentsBrowser.st
changeset 17685 65e3e0c8ea0c
parent 17636 64c0dc8340dc
child 17689 3aab8c42049c
--- a/DirectoryContentsBrowser.st	Mon Sep 11 09:07:18 2017 +0200
+++ b/DirectoryContentsBrowser.st	Mon Sep 11 09:07:48 2017 +0200
@@ -640,6 +640,12 @@
                   itemValue: doCompareTwoFiles
                   translateLabel: true
                 )
+               (MenuItem
+                  enabled: hasTwoImageFilesSelected
+                  label: 'Delta between Images'
+                  itemValue: showDeltaBetweenTwoImageFiles
+                  translateLabel: true
+                )
                )
               nil
               nil
@@ -710,6 +716,8 @@
         nil
         nil
       )
+
+    "Modified: / 10-09-2017 / 16:53:44 / cg"
 !
 
 viewBrowserMenu
@@ -2060,7 +2068,7 @@
     |sel idx nextIdx nextItem|
 
     sel := selectionInFileList value.
-    sel isEmpty ifTrue:[
+    sel isEmptyOrNil ifTrue:[
         idx := 0
     ] ifFalse:[
         idx := browserItemList indexOf:(selectionInFileList value last).
@@ -2068,13 +2076,15 @@
     nextIdx := idx == browserItemList size ifTrue:[1] ifFalse:[idx + 1].
     nextItem := browserItemList at:nextIdx.
     self selectItems:{ nextItem }.
+
+    "Modified: / 11-09-2017 / 09:07:48 / cg"
 !
 
 selectPreviousFile
     |sel idx prevIdx prevItem|
 
     sel := selectionInFileList value.
-    sel isEmpty ifTrue:[
+    sel isEmptyOrNil ifTrue:[
         idx := browserItemList size + 1
     ] ifFalse:[
         idx := browserItemList indexOf:(selectionInFileList value first).
@@ -2082,6 +2092,8 @@
     prevIdx := idx == 1 ifTrue:[browserItemList size] ifFalse:[idx - 1].
     prevItem := browserItemList at:prevIdx.
     self selectItems:{ prevItem }.
+
+    "Modified: / 10-09-2017 / 15:12:27 / cg"
 !
 
 selectedFileItems