--- a/AbstractFileBrowser.st	Wed Dec 18 11:27:50 2002 +0100
+++ b/AbstractFileBrowser.st	Wed Dec 18 11:28:21 2002 +0100
@@ -3196,28 +3196,30 @@
 
     hist := self fileHistory.
     hist isEmpty ifTrue:[^ nil].
-    text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear File History').
+
     removeCol := OrderedCollection new.
     hist do:[:aFileItem|
-	aFileItem fileName exists ifTrue:[
-	    menu addItem:(MenuItem label: aFileItem fileName asString value:[
-		self currentFileNameHolder value:(OrderedCollection with:(aFileItem fileName)).
-		self openApplByFileItem:aFileItem
-	    ]).
-	] ifFalse:[
-	    removeCol add:aFileItem.
-	]
+        aFileItem fileName exists ifTrue:[
+            menu addItem:(MenuItem label: aFileItem fileName asString value:[
+                self currentFileNameHolder value:(OrderedCollection with:(aFileItem fileName)).
+                self openApplByFileItem:aFileItem
+            ]).
+        ] ifFalse:[
+            removeCol add:aFileItem.
+        ]
     ].
     "/ remove all not existing history entries
     removeCol do:[ : el |
-	hist remove:el.
+        hist remove:el.
     ].
     removeItem := MenuItem new.
     removeItem translateLabel:true.
+    text := resources string:'Clear History'.
+    "/ text := LabelAndIcon icon:(self class clearHistoryIcon) string:text.
     removeItem label:text.
     removeItem value:[
-	self fileHistory removeAll.
-	self enableFileHistory value:false.
+        self fileHistory removeAll.
+        self enableFileHistory value:false.
     ].
     menu addItem:(MenuItem label:'-').
     menu addItem:removeItem.
@@ -5423,5 +5425,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.72 2002-12-11 16:49:44 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.73 2002-12-18 10:28:21 cg Exp $'
 ! !