--- 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'!