hg/stx-libtool: comparison AbstractFileBrowser.st

equal deleted inserted replaced

-:e9e2343d5569
+:05ad03de6f3c
 menu findGuiResourcesIn:self.
 menu receiver:self.
 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:[
+aFileItem fileName exists ifTrue:[
-	    menu addItem:(MenuItem label: aFileItem fileName asString value:[
+menu addItem:(MenuItem label: aFileItem fileName asString value:[
-		self currentFileNameHolder value:(OrderedCollection with:(aFileItem fileName)).
+self currentFileNameHolder value:(OrderedCollection with:(aFileItem fileName)).
-		self openApplByFileItem:aFileItem
+self openApplByFileItem:aFileItem
-	    ]).
+]).
-	] ifFalse:[
+] ifFalse:[
-	    removeCol add:aFileItem.
+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 fileHistory removeAll.
-	self enableFileHistory value:false.
+self enableFileHistory value:false.
 ].
 menu addItem:(MenuItem label:'-').
 menu addItem:removeItem.
 ^ menu
 !
 ! !
 !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 $'
 ! !

changeset 4391	05ad03de6f3c
parent 4368	ec625478fad7
child 4392	feb0bffd27b8