class: FileSelectionBrowser
changed: #postBuildWith:
avoid reverse (which is destructive)
--- a/FileSelectionBrowser.st Fri Feb 27 17:03:53 2015 +0100
+++ b/FileSelectionBrowser.st Wed Mar 25 15:12:09 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1997 by eXept Software AG
All Rights Reserved
@@ -11,6 +13,8 @@
"
"{ Package: 'stx:libtool2' }"
+"{ NameSpace: Smalltalk }"
+
SelectionBrowser subclass:#FileSelectionBrowser
instanceVariableNames:'selectedFileFilter directoryView listOfFileFilters directory'
classVariableNames:''
@@ -625,7 +629,7 @@
"/ withSuffix:(fileFilter asFilename suffix))
self valueOfFileName value: (
((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.',
- (fileFilter copy reverse readStream upTo: $.) reverse)
+ (fileFilter reversed readStream upTo: $.) reverse)
].
nm := directory.
nm isNil ifTrue:[
@@ -660,3 +664,4 @@
version_CVS
^ '$Header$'
! !
+