equal
deleted
inserted
replaced
426 (allSelectedBefore and:[allSelected]) ifTrue:[ |
426 (allSelectedBefore and:[allSelected]) ifTrue:[ |
427 ^ self |
427 ^ self |
428 ]. |
428 ]. |
429 ]. |
429 ]. |
430 changedObject == categoryList ifTrue:[ |
430 changedObject == categoryList ifTrue:[ |
431 self halt. |
431 self breakPoint:#cg. |
432 ]. |
432 ]. |
433 super delayedUpdate:something with:aParameter from:changedObject |
433 super delayedUpdate:something with:aParameter from:changedObject |
434 |
434 |
435 "Created: / 5.2.2000 / 13:42:12 / cg" |
435 "Created: / 5.2.2000 / 13:42:12 / cg" |
436 "Modified: / 12.11.2001 / 19:36:16 / cg" |
436 "Modified: / 12.11.2001 / 19:36:16 / cg" |
744 |
744 |
745 "/ those are simulated - in ST/X, empty categories do not |
745 "/ those are simulated - in ST/X, empty categories do not |
746 "/ really exist; however, during browsing, it makes sense. |
746 "/ really exist; however, during browsing, it makes sense. |
747 AdditionalEmptyCategories size > 0 ifTrue:[ |
747 AdditionalEmptyCategories size > 0 ifTrue:[ |
748 "/ remove those that are present ... |
748 "/ remove those that are present ... |
749 AdditionalEmptyCategories := AdditionalEmptyCategories select:[:cat | (categories includes:cat) not]. |
749 AdditionalEmptyCategories := AdditionalEmptyCategories reject:[:cat | (categories includes:cat)]. |
750 categories addAll:AdditionalEmptyCategories. |
750 categories addAll:AdditionalEmptyCategories. |
751 categoriesBag addAll:AdditionalEmptyCategories withOccurrences:0. |
751 categoriesBag addAll:AdditionalEmptyCategories withOccurrences:0. |
752 ]. |
752 ]. |
753 ] ifFalse:[ |
753 ] ifFalse:[ |
754 |setOfCategories| |
754 |setOfCategories| |
1001 ! ! |
1001 ! ! |
1002 |
1002 |
1003 !ClassCategoryList class methodsFor:'documentation'! |
1003 !ClassCategoryList class methodsFor:'documentation'! |
1004 |
1004 |
1005 version |
1005 version |
1006 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.46 2013-04-25 13:12:26 stefan Exp $' |
1006 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.48 2013-06-20 22:35:19 cg Exp $' |
1007 ! |
1007 ! |
1008 |
1008 |
1009 version_CVS |
1009 version_CVS |
1010 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.46 2013-04-25 13:12:26 stefan Exp $' |
1010 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.48 2013-06-20 22:35:19 cg Exp $' |
1011 ! ! |
1011 ! ! |
1012 |
1012 |