--- a/FileBrowser.st	Thu Dec 18 15:39:52 2008 +0100
+++ b/FileBrowser.st	Fri Dec 19 09:14:08 2008 +0100
@@ -281,6 +281,20 @@
     ^ MIMETypeIconLibrary iconForKeyMatching:mimeTypeOrKey.
 !
 
+iconForLinkedDirectory
+    "answer the icon used for linked directories"
+
+    |dirIcon linkIcon|
+
+    dirIcon  := self iconForKeyMatching:#directory.
+    linkIcon := self iconForKeyMatching:#addOnLinked.
+
+    linkIcon notNil ifTrue:[
+        ^ MultiImage images:(Array with:dirIcon with:linkIcon).
+    ].
+    ^ dirIcon
+!
+
 iconKeyForFile:aFilenameArg
     "given a fileName, return an appropriate icon"
 
@@ -7487,5 +7501,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.627 2008-11-20 15:06:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.628 2008-12-19 08:14:08 ca Exp $'
 ! !