# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1229964475 -3600
# Node ID 641332126a4f48d872dbc4008a3dfab97315bd42
# Parent  a21c9accd3cdb94a64eb724d366635e904f1a515
*** empty log message ***

diff -r a21c9accd3cd -r 641332126a4f AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Mon Dec 22 17:46:48 2008 +0100
+++ b/AbstractFileBrowser.st	Mon Dec 22 17:47:55 2008 +0100
@@ -5567,8 +5567,9 @@
         directories isEmpty ifTrue:[^ self].
 
         imageFiles := self allFilesInSelectedDirectoriesForWhich:[:f | f mimeTypeFromName isImage].
-        imageFiles := imageFiles select:[:f | f baseName startsWith:'nylons_dir67_'].
-
+        "/ imageFiles := imageFiles select:[:f | f baseName startsWith:'foo'].
+        imageFiles sort:[:a :b | a pathName < b pathName].
+        
         "/ for each, get the color histogram
         histogramsV := Dictionary new.
         histogramsH := Dictionary new.
@@ -7675,5 +7676,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.393 2008-12-22 16:46:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.394 2008-12-22 16:47:55 cg Exp $'
 ! !