--- a/FileBrowser.st	Mon Jan 28 11:02:31 2002 +0100
+++ b/FileBrowser.st	Mon Jan 28 11:27:14 2002 +0100
@@ -3626,20 +3626,24 @@
 readAbbrevFile
     "read the abbrev file and install classes found there as autoloaded classes"
 
-    |sel|
-
-    sel := self singleSelectedFile.
-    sel isNil ifTrue:[
-        sel := currentDirectory asFilename construct:'abbrev.stc'.
-    ].
-    sel notNil ifTrue:[
-        self withWaitCursorDo:[
-            Smalltalk installAutoloadedClassesFrom:sel
-        ]
-    ].
-
-    "Created: / 4.2.1999 / 17:40:42 / cg"
-    "Modified: / 10.11.2001 / 13:12:34 / cg"
+    |sel current|
+
+    current := currentDirectory asFilename.
+    sel := fileListView selection.
+    sel size == 0 ifTrue:[
+        Smalltalk installAutoloadedClassesFrom:(current construct:'abbrev.stc').
+        ^ self
+    ].
+    sel do:[:eachIndex |
+        |f|
+
+        f := fileList at:eachIndex ifAbsent:nil.
+        f := current construct:f.
+        f isDirectory ifTrue:[
+            f := f construct:'abbrev.stc'
+        ].
+        Smalltalk installAutoloadedClassesFrom:f.
+    ].
 !
 
 revisitFile:aFileName
@@ -7723,5 +7727,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.456 2002-01-07 18:16:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.457 2002-01-28 10:27:14 cg Exp $'
 ! !