# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1427292729 -3600
# Node ID 239fe0968d064664d87e20d297d445ce95609b6c
# Parent  830d70ff1d543442a903702caa44feec4a381e1c
class: FileSelectionBrowser
changed: #postBuildWith:
avoid reverse (which is destructive)

diff -r 830d70ff1d54 -r 239fe0968d06 FileSelectionBrowser.st
--- 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$'
 ! !
+