#UI_ENHANCEMENT
authorClaus Gittinger <cg@exept.de>
Thu, 04 Feb 2016 10:54:38 +0100
changeset 16101 58b48772bf62
parent 16099 489ba8ac2719
child 16102 712049dd76a8
#UI_ENHANCEMENT class: DirectoryContentsBrowser changed:5 methods update directorylist after some actions
DirectoryContentsBrowser.st
--- a/DirectoryContentsBrowser.st	Wed Feb 03 16:25:52 2016 +0100
+++ b/DirectoryContentsBrowser.st	Thu Feb 04 10:54:38 2016 +0100
@@ -1611,10 +1611,9 @@
     self directoryContentsChanged. "/ to force update of the numberOfShown files.
     nextItem notNil ifTrue:[
         self
-            enqueueMessage:#value 
-            for:[ self selectionInFileList value:(OrderedCollection with:nextItem).
-                  self selectItems:(OrderedCollection with:nextItem)  ]
-            arguments:#().
+            enqueueDelayedAction:[ 
+                self selectionInFileList value:(OrderedCollection with:nextItem).
+                self selectItems:(OrderedCollection with:nextItem)  ].
 "/        self selectionInFileList value:(OrderedCollection with:nextItem).
 "/        self selectItems:(OrderedCollection with:nextItem).
     ].
@@ -2464,7 +2463,6 @@
     ].
     self
         enqueueMessage:#setBrowserItemList: 
-        for:self
         arguments:(Array with:filteredItems).
 !
 
@@ -2551,12 +2549,10 @@
         ]
     ].
     self
-        enqueueMessage:#value 
-        for:[ 
+        enqueueDelayedAction:[ 
             self browserItemListAdd:itemsToAdd remove:itemsToRemove. 
             filterChangeFlag := false.
-        ]
-        arguments:#().
+        ].
     filteredItems := newItems.
 
     "Modified: / 23-03-2012 / 14:42:32 / cg"
@@ -2610,9 +2606,7 @@
         filteredItems := newFilteredItems.
         filteredItems := self sortBlockHolder value sortItemList:filteredItems.
         self
-            enqueueMessage:#value 
-            for:[ self setBrowserItemList:filteredItems ]
-            arguments:#().
+            enqueueDelayedAction:[ self setBrowserItemList:filteredItems ].
     ].
 
     "Modified: / 20-11-2012 / 14:28:54 / cg"
@@ -2675,9 +2669,7 @@
     filteredItems isNil ifTrue:[ ^ self].
     filteredItems := self sortBlockHolder value sortItemList:filteredItems.
     self
-        enqueueMessage:#value 
-        for:[ self setBrowserItemList:filteredItems ]
-        arguments:#().
+        enqueueDelayedAction:[ self setBrowserItemList:filteredItems ].
 !
 
 startUpdateTask