Tools__ClassCategoryList.st
changeset 18696 5ab19ab4f1ae
parent 18216 4082bd7cce2c
child 18961 034b2bb60274
--- 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'!