#REFACTORING by stefan
class: HierarchicalFileList
changed:
#matchBlock:
#sortBlock:
use #criticalDo:
--- a/HierarchicalFileList.st Mon Jul 23 19:26:59 2018 +0200
+++ b/HierarchicalFileList.st Mon Jul 23 19:27:25 2018 +0200
@@ -251,12 +251,14 @@
matchBlock := aBlock.
root notNil ifTrue:[
- self recursionLock critical:[
+ self criticalDo:[
self stopMonitoringTask.
root matchBlockChanged.
].
self startMonitoringTask.
].
+
+ "Modified: / 23-07-2018 / 13:24:06 / Stefan Vogel"
!
sortBlock
@@ -286,12 +288,14 @@
sortBlock := aBlock.
root notNil ifTrue:[
- self recursionLock critical:[
+ self criticalDo:[
self stopMonitoringTask.
root recursiveSort:aBlock.
].
self startMonitoringTask.
].
+
+ "Modified: / 23-07-2018 / 13:24:17 / Stefan Vogel"
! !
!HierarchicalFileList methodsFor:'private-monitoring task'!