# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 905616747 -7200
# Node ID 4d408220a60b81dd670b1a37fe8188568f2cb957
# Parent  9454c462dad433f2292ef3e0dc37c17e5b5f3998
fixed file filters.

diff -r 9454c462dad4 -r 4d408220a60b FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Sat Sep 12 18:11:24 1998 +0200
+++ b/FileSelectionBrowser.st	Sat Sep 12 18:12:27 1998 +0200
@@ -130,20 +130,32 @@
 !FileSelectionBrowser class methodsFor:'accessing'!
 
 loadImageFileNameFilters
-    ^self saveImageFileNameFilters addAll: #('*.jpeg' '*.jpg' '*'); yourself
+    ^ OrderedCollection 
+        withAll: #(
+                    '*.xpm ; *.xbm ; *.gif ; *.tif ; *.tiff ; *.bmp ; *.jpeg ; *.jpg'
+                    '*'
+                  )
 
-    "Modified: / 29.7.1998 / 00:56:29 / cg"
+    "Modified: / 12.9.1998 / 17:23:42 / cg"
 !
 
 projectFileNameFilters
-    ^Array withAll: #('*.st' '*.*o'  '*.s' '*.c' 'Make*' '*.project')
+    ^Array withAll: #(
+                      '*.st ; *.*o ; *.s ; *.c ; Make* ; *.project'
+                      '*'
+                     )
 
+    "Modified: / 12.9.1998 / 17:23:22 / cg"
 !
 
 saveImageFileNameFilters
-    ^ OrderedCollection withAll: #('*.xpm' '*.xbm' '*.gif' '*.tif' '*.tiff' '*.bmp')
+    ^ OrderedCollection 
+        withAll: #(
+                    '*.xpm ; *.xbm ; *.gif ; *.tif ; *.tiff ; *.bmp'
+                    '*'
+                  )
 
-    "Modified: / 29.7.1998 / 00:55:14 / cg"
+    "Modified: / 12.9.1998 / 17:23:54 / cg"
 ! !
 
 !FileSelectionBrowser class methodsFor:'interface specs'!
@@ -375,9 +387,14 @@
     directoryView fileSelectAction: [:aFileName |self valueOfFileName value: aFileName asFilename baseName].
     directoryView fileDoubleClickAction: [:aFileName |self fileDoubleClicked: aFileName asFilename baseName].
     directoryView fileFilterSelectAction: [:fileFilter|
-    self valueOfFileName value: (
-        ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.',
-        (fileFilter copy reverse readStream upTo: $.) reverse)]. 
+"/        CG: obscure code - isn't the code below the same as ?
+"/        self valueOfFileName value:((self valueOfFileName value ? 'unknown') 
+"/                                    asFilename
+"/                                        withSuffix:(fileFilter asFilename suffix))
+        self valueOfFileName value: (
+            ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.',
+            (fileFilter copy reverse readStream upTo: $.) reverse)
+    ]. 
     self directoryTreeView selectPathname: directory ? self class lastSelection ? Filename currentDirectory asAbsoluteFilename name.
 
     self directoryInputField entryCompletionBlock: 
@@ -407,7 +424,7 @@
 
     ^super postBuildWith:aBuilder
 
-    "Modified: / 24.8.1998 / 17:43:44 / cg"
+    "Modified: / 12.9.1998 / 17:10:44 / cg"
 ! !
 
 !FileSelectionBrowser class methodsFor:'documentation'!