class: FileBrowserV2
changed: #menuFileHistory
MenuItem label:value: (obsolete) -> MenuItem label:itemValue:
--- a/FileBrowserV2.st Fri Jun 21 02:43:54 2013 +0200
+++ b/FileBrowserV2.st Fri Jun 21 02:44:41 2013 +0200
@@ -1813,18 +1813,20 @@
removeCol := OrderedCollection new.
hist do:[:aFileItem|
- "aFileItem fileName exists" true ifTrue:[
- menu addItem:(MenuItem label: aFileItem fileName asString value:[
- self setCurrentFileName:(aFileItem fileName).
- self openApplByFileItem:aFileItem
- ]).
- ] ifFalse:[
- removeCol add:aFileItem.
- ]
+ "aFileItem fileName exists" true ifTrue:[
+ menu addItem:(MenuItem
+ label: aFileItem fileName asString
+ itemValue:[
+ self setCurrentFileName:(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.
@@ -1832,10 +1834,10 @@
"/ text := LabelAndIcon icon:(self class clearHistoryIcon) string:text.
removeItem label:text.
removeItem
- itemValue:[
- self fileHistory removeAll.
- self enableFileHistory value:false.
- ].
+ itemValue:[
+ self fileHistory removeAll.
+ self enableFileHistory value:false.
+ ].
menu addSeparator.
menu addItem:removeItem.
^ menu
@@ -2024,7 +2026,7 @@
!FileBrowserV2 class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.208 2013-05-21 20:13:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.209 2013-06-21 00:44:41 cg Exp $'
! !