class: FileBrowserV2
authorClaus Gittinger <cg@exept.de>
Fri, 21 Jun 2013 02:44:41 +0200
changeset 12961 710f09bbdd4d
parent 12960 284b237cbc3f
child 12962 6419aa2abc5f
class: FileBrowserV2 changed: #menuFileHistory MenuItem label:value: (obsolete) -> MenuItem label:itemValue:
FileBrowserV2.st
--- 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 $'
 ! !