# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1404469307 -7200
# Node ID 8057b1c7ec88f33b7db637d06ad76ba3cf30258d
# Parent  0ed374a9788f2b1a7c2ab26765fd6f0b50f794c1
class: DirectoryContentsBrowser
added:
        #selectNextFile
        #selectPreviousFile

diff -r 0ed374a9788f -r 8057b1c7ec88 DirectoryContentsBrowser.st
--- 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 $'
 ! !