--- a/Tools__ClassCategoryList.st Sat Mar 16 14:49:23 2019 +0100
+++ b/Tools__ClassCategoryList.st Sat Mar 16 14:49:39 2019 +0100
@@ -343,7 +343,7 @@
"/ in order to give others a chance to update their list before,
"/ this one is always enqueued for delayed update (even if immediateUpdate is true)
"/ self enqueueDelayedUpdateOutputGenerator
- self enqueueMessage:#updateOutputGenerator for:self arguments:#()
+ self enqueueMessage:#updateOutputGenerator
].
].
].
@@ -489,6 +489,7 @@
"Modified: / 12-11-2001 / 19:36:16 / cg"
"Modified: / 27-03-2014 / 11:16:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (format): / 13-02-2017 / 20:33:11 / cg"
+ "Modified: / 16-03-2019 / 14:10:42 / Claus Gittinger"
!
forceUpdateList
@@ -518,7 +519,7 @@
categoryOfClass := aParameter category.
(self selectedCategoriesStrings includes:categoryOfClass) ifTrue:[
"/ affects me
- self enqueueMessage:#updateOutputGenerator for:self arguments:nil.
+ self enqueueMessage:#updateOutputGenerator.
^ self.
].
(rawCategoryList includes:categoryOfClass) ifTrue:[
@@ -573,6 +574,7 @@
"Modified: / 20-07-2011 / 18:50:04 / cg"
"Modified: / 25-03-2014 / 20:28:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 16-03-2019 / 14:19:46 / Claus Gittinger"
! !
!ClassCategoryList methodsFor:'drag & drop'!
@@ -757,9 +759,11 @@
super commonPostOpen.
listValid ifFalse:[
self enqueueDelayedUpdateList.
- self enqueueMessage:#xUpdateOutputGenerator for:self arguments:nil.
- "/ self enqueueMessage:#updateSelectionIndexFromSelection for:self arguments:nil. "/ #().
- ].
+ self enqueueMessage:#xUpdateOutputGenerator.
+ "/ self enqueueMessage:#updateSelectionIndexFromSelection. "/ #().
+ ].
+
+ "Modified (comment): / 16-03-2019 / 14:19:29 / Claus Gittinger"
!
postBuildCategoryListView:aView
@@ -1089,7 +1093,9 @@
xUpdateOutputGenerator
"/ self updateOutputGenerator
-self enqueueDelayedUpdateOutputGenerator
+ self enqueueDelayedUpdateOutputGenerator
+
+ "Modified (format): / 16-03-2019 / 14:19:39 / Claus Gittinger"
! !
!ClassCategoryList methodsFor:'private-presentation'!