class: DirectoryContentsBrowser
added:
#selectNextFile
#selectPreviousFile
--- a/DirectoryContentsBrowser.st Thu Jul 03 20:46:54 2014 +0200
+++ b/DirectoryContentsBrowser.st Fri Jul 04 12:21:47 2014 +0200
@@ -1998,6 +1998,34 @@
"/ ].
!
+selectNextFile
+ |sel idx nextIdx nextItem|
+
+ sel := selectionInFileList value.
+ sel isEmpty ifTrue:[
+ idx := 0
+ ] ifFalse:[
+ idx := browserItemList indexOf:(selectionInFileList value last).
+ ].
+ nextIdx := idx == browserItemList size ifTrue:[1] ifFalse:[idx + 1].
+ nextItem := browserItemList at:nextIdx.
+ self selectItems:{ nextItem }.
+!
+
+selectPreviousFile
+ |sel idx prevIdx prevItem|
+
+ sel := selectionInFileList value.
+ sel isEmpty ifTrue:[
+ idx := browserItemList size + 1
+ ] ifFalse:[
+ idx := browserItemList indexOf:(selectionInFileList value first).
+ ].
+ prevIdx := idx == 1 ifTrue:[browserItemList size] ifFalse:[idx - 1].
+ prevItem := browserItemList at:prevIdx.
+ self selectItems:{ prevItem }.
+!
+
selectedFileItems
| sel |
@@ -3459,10 +3487,10 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.264 2014-06-06 07:30:06 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.265 2014-07-04 10:21:47 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.264 2014-06-06 07:30:06 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.265 2014-07-04 10:21:47 cg Exp $'
! !