#BUGFIX by cg
class: DirectoryContentsBrowser
changed:
#selectNextFile (send #isEmptyOrNil instead of #isEmpty)
#selectPreviousFile (send #isEmptyOrNil instead of #isEmpty)
class: DirectoryContentsBrowser class
changed: #directoryContentsBrowserMenu
--- 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