Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: Tools::ClassCategoryList
authorClaus Gittinger <cg@exept.de>
Mon, 25 Mar 2013 23:07:48 +0100
changeset 12524 b01bf4e76194
parent 12523 a85ef90e0135
child 12525 50b803c4ee6a
class: Tools::ClassCategoryList changed: #delayedUpdate:with:from:
Tools_ClassCategoryList.st file | annotate | diff | comparison | revisions 
--- a/Tools_ClassCategoryList.st	Mon Mar 25 22:25:21 2013 +0100
+++ b/Tools_ClassCategoryList.st	Mon Mar 25 23:07:48 2013 +0100
@@ -313,20 +313,29 @@
             ^ self
         ].
         something == #projectOrganization ifTrue:[
-            cls := aParameter first.
             listValid == false ifTrue:[
                 ^ self
             ].
-            categoryOfClass := cls category.
-
-            (rawCategoryList includes:categoryOfClass) ifFalse:[
+            aParameter isNil ifTrue:[
                 self invalidateList.                
-            ].
+                slaveMode value ~~ true ifTrue:[
+                    selectedCategories notEmptyOrNil ifTrue:[
+                        self enqueueDelayedUpdateOutputGenerator
+                    ].
+                ]
+            ] ifFalse:[
+                cls := aParameter first.
+                categoryOfClass := cls category.
 
-            slaveMode value ~~ true ifTrue:[
-                (selectedCategories includes:categoryOfClass) ifTrue:[
-                    self enqueueDelayedUpdateOutputGenerator
+                (rawCategoryList includes:categoryOfClass) ifFalse:[
+                    self invalidateList.                
                 ].
+
+                slaveMode value ~~ true ifTrue:[
+                    (selectedCategories includes:categoryOfClass) ifTrue:[
+                        self enqueueDelayedUpdateOutputGenerator
+                    ].
+                ]
             ].
             ^ self
         ].
@@ -994,10 +1003,10 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.43 2013-03-25 12:13:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.44 2013-03-25 22:07:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.43 2013-03-25 12:13:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.44 2013-03-25 22:07:48 cg Exp $'
 ! !
hg/stx-libtool