equal
deleted
inserted
replaced
273 |selectedCategories allSelectedBefore |
273 |selectedCategories allSelectedBefore |
274 nameListEntryForALL cls categoryOfClass wg| |
274 nameListEntryForALL cls categoryOfClass wg| |
275 |
275 |
276 selectedCategories := self selectedCategoriesStrings. |
276 selectedCategories := self selectedCategoriesStrings. |
277 |
277 |
278 changedObject == Smalltalk ifTrue:[ |
278 changedObject == environment ifTrue:[ |
279 ((something == #classVariables) |
279 ((something == #classVariables) |
280 or:[something == #classDefinition]) ifTrue:[ |
280 or:[something == #classDefinition]) ifTrue:[ |
281 listValid == true ifTrue:[ |
281 listValid == true ifTrue:[ |
282 categoryOfClass := aParameter category. |
282 categoryOfClass := aParameter category. |
283 (rawCategoryList includes:categoryOfClass) ifFalse:[ |
283 (rawCategoryList includes:categoryOfClass) ifFalse:[ |
450 ! |
450 ! |
451 |
451 |
452 update:something with:aParameter from:changedObject |
452 update:something with:aParameter from:changedObject |
453 |categoryOfClass| |
453 |categoryOfClass| |
454 |
454 |
455 changedObject == Smalltalk ifTrue:[ |
455 changedObject == environment ifTrue:[ |
456 (something == #methodInClass |
456 (something == #methodInClass |
457 or:[ something == #classComment |
457 or:[ something == #classComment |
458 or:[ something == #methodDictionary |
458 or:[ something == #methodDictionary |
459 or:[ something == #methodTrap |
459 or:[ something == #methodTrap |
460 or:[ something == #methodCoverageInfo |
460 or:[ something == #methodCoverageInfo |
625 ]. |
625 ]. |
626 |
626 |
627 ^ Iterator on:[:whatToDo | |
627 ^ Iterator on:[:whatToDo | |
628 showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ]. |
628 showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ]. |
629 |
629 |
630 Smalltalk allClassesDo:[:cls | |
630 environment allClassesDo:[:cls | |
631 (cls isRealNameSpace) ifFalse:[ |
631 (cls isRealNameSpace) ifFalse:[ |
632 (inclusionTest value:cls) ifTrue:[ |
632 (inclusionTest value:cls) ifTrue:[ |
633 (nameSpaceFilter isNil |
633 (nameSpaceFilter isNil |
634 or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[ |
634 or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[ |
635 (packageFilter isNil |
635 (packageFilter isNil |
700 |
700 |
701 classesWithExtensions := IdentitySet new. |
701 classesWithExtensions := IdentitySet new. |
702 |
702 |
703 classes := IdentitySet new. |
703 classes := IdentitySet new. |
704 inGeneratorHolder isNil ifTrue:[ |
704 inGeneratorHolder isNil ifTrue:[ |
705 Smalltalk allClassesDo:[:cls | |
705 environment allClassesDo:[:cls | |
706 |cat isLoaded| |
706 |cat isLoaded| |
707 |
707 |
708 (cls isRealNameSpace) ifFalse:[ |
708 (cls isRealNameSpace) ifFalse:[ |
709 (nameSpaceFilter isNil |
709 (nameSpaceFilter isNil |
710 or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[ |
710 or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[ |
762 generator := inGeneratorHolder value. |
762 generator := inGeneratorHolder value. |
763 generator isNil ifTrue:[^ #() ]. |
763 generator isNil ifTrue:[^ #() ]. |
764 setOfCategories := Set withAll:generator. |
764 setOfCategories := Set withAll:generator. |
765 generator do:[:cat | categories add:cat string]. |
765 generator do:[:cat | categories add:cat string]. |
766 |
766 |
767 Smalltalk allClassesDo:[:each | |
767 environment allClassesDo:[:each | |
768 |cat| |
768 |cat| |
769 |
769 |
770 each isNameSpace ifFalse:[ |
770 each isNameSpace ifFalse:[ |
771 cat := each category string asSymbol. |
771 cat := each category string asSymbol. |
772 (setOfCategories includes:cat) ifTrue:[ |
772 (setOfCategories includes:cat) ifTrue:[ |
850 listView |
850 listView |
851 ^ self componentAt:#List |
851 ^ self componentAt:#List |
852 ! |
852 ! |
853 |
853 |
854 makeDependent |
854 makeDependent |
855 Smalltalk addDependent:self. |
855 environment addDependent:self. |
856 ChangeSet addDependent:self. |
856 ChangeSet addDependent:self. |
857 |
857 |
858 "Created: / 5.2.2000 / 13:42:13 / cg" |
858 "Created: / 5.2.2000 / 13:42:13 / cg" |
859 ! |
859 ! |
860 |
860 |
861 makeIndependent |
861 makeIndependent |
862 Smalltalk removeDependent:self. |
862 environment removeDependent:self. |
863 ChangeSet removeDependent:self. |
863 ChangeSet removeDependent:self. |
864 |
864 |
865 "Created: / 5.2.2000 / 13:42:13 / cg" |
865 "Created: / 5.2.2000 / 13:42:13 / cg" |
866 ! |
866 ! |
867 |
867 |