equal
deleted
inserted
replaced
480 ]. |
480 ]. |
481 Smalltalk allClassesDo:[:aClass | |
481 Smalltalk allClassesDo:[:aClass | |
482 |p| |
482 |p| |
483 |
483 |
484 (classesToRemove includes:aClass) ifFalse:[ |
484 (classesToRemove includes:aClass) ifFalse:[ |
485 aClass methodArray do:[:aMethod | |
485 aClass methodDictionary keysAndValuesDo:[:sel :aMethod | |
486 (p := aMethod package) notNil ifTrue:[ |
486 (p := aMethod package) notNil ifTrue:[ |
487 p = theProject ifTrue:[ |
487 p = theProject ifTrue:[ |
488 methodsToRemove add:aMethod |
488 methodsToRemove add:aMethod |
489 ] |
489 ] |
490 ] |
490 ] |
491 ]. |
491 ]. |
492 aClass class methodArray do:[:aMethod | |
492 aClass class methodDictionary keysAndValuesDo:[:sel :aMethod | |
493 (p := aMethod package) notNil ifTrue:[ |
493 (p := aMethod package) notNil ifTrue:[ |
494 p = theProject ifTrue:[ |
494 p = theProject ifTrue:[ |
495 methodsToRemove add:aMethod |
495 methodsToRemove add:aMethod |
496 ] |
496 ] |
497 ] |
497 ] |
632 ! ! |
632 ! ! |
633 |
633 |
634 !ProjectView class methodsFor:'documentation'! |
634 !ProjectView class methodsFor:'documentation'! |
635 |
635 |
636 version |
636 version |
637 ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.33 1997-01-02 19:28:46 cg Exp $' |
637 ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.34 1997-01-04 15:40:42 cg Exp $' |
638 ! ! |
638 ! ! |