# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1234193312 -3600
# Node ID 163dd382669bcbf8209a6250dd8ec4f08b53943d
# Parent  a7c6058dc523a5ca7c2a390446503380323cfd04
map replaced by collect

diff -r a7c6058dc523 -r 163dd382669b FileBrowser.st
--- a/FileBrowser.st	Fri Feb 06 13:01:38 2009 +0100
+++ b/FileBrowser.st	Mon Feb 09 16:28:32 2009 +0100
@@ -2208,8 +2208,8 @@
     list := SelectionInList new.
 
     descr := CharacterEncoder supportedExternalEncodings.
-    encodings := descr map:#first.
-    encodingNames := descr map:#second.
+    encodings := descr collect:[:d | d first].
+    encodingNames := descr collect:[:d | d second].
 
     list list:encodingNames.
     list selectionIndex:(encodings indexOf:fileEncoding ifAbsent:1).
@@ -7501,5 +7501,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.628 2008-12-19 08:14:08 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.629 2009-02-09 15:28:32 cg Exp $'
 ! !