equal
deleted
inserted
replaced
481 (selectedPackages includes:(self class nameListEntryForALL)) ifTrue:[ |
481 (selectedPackages includes:(self class nameListEntryForALL)) ifTrue:[ |
482 hideUnloadedClasses ifTrue:[ |
482 hideUnloadedClasses ifTrue:[ |
483 ^ Iterator on:[:whatToDo | |
483 ^ Iterator on:[:whatToDo | |
484 Smalltalk allClassesDo:[:cls | |
484 Smalltalk allClassesDo:[:cls | |
485 cls isLoaded ifTrue:[ |
485 cls isLoaded ifTrue:[ |
486 (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[ |
486 (cls isRealNameSpace not) ifTrue:[ |
487 whatToDo value:cls |
487 whatToDo value:cls |
488 ] |
488 ] |
489 ] |
489 ] |
490 ] |
490 ] |
491 ] |
491 ] |
492 ]. |
492 ]. |
493 ^ Iterator on:[:whatToDo | |
493 ^ Iterator on:[:whatToDo | |
494 Smalltalk allClassesDo:[:cls | |
494 Smalltalk allClassesDo:[:cls | |
495 (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[ |
495 (cls isRealNameSpace not) ifTrue:[ |
496 whatToDo value:cls |
496 whatToDo value:cls |
497 ] |
497 ] |
498 ] |
498 ] |
499 ] |
499 ] |
500 ]. |
500 ]. |
505 |
505 |
506 ^ Iterator on:[:whatToDo | |doInclude| |
506 ^ Iterator on:[:whatToDo | |doInclude| |
507 Smalltalk allClassesDo:[:cls | |
507 Smalltalk allClassesDo:[:cls | |
508 (hideUnloadedClasses not or:[cls isLoaded]) |
508 (hideUnloadedClasses not or:[cls isLoaded]) |
509 ifTrue:[ |
509 ifTrue:[ |
510 (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[ |
510 (cls isRealNameSpace not) ifTrue:[ |
511 doInclude := (thePackage = cls package). |
511 doInclude := (thePackage = cls package). |
512 doInclude ifFalse:[ |
512 doInclude ifFalse:[ |
513 cls isJavaClass ifFalse:[ |
513 cls isJavaClass ifFalse:[ |
514 doInclude := (cls methodDictionary contains:[:mthd | thePackage = mthd package]) |
514 doInclude := (cls methodDictionary contains:[:mthd | thePackage = mthd package]) |
515 or:[ cls class methodDictionary contains:[:mthd | thePackage = mthd package]]. |
515 or:[ cls class methodDictionary contains:[:mthd | thePackage = mthd package]]. |
526 |
526 |
527 ^ Iterator on:[:whatToDo | |doInclude| |
527 ^ Iterator on:[:whatToDo | |doInclude| |
528 Smalltalk allClassesDo:[:cls | |
528 Smalltalk allClassesDo:[:cls | |
529 (hideUnloadedClasses not or:[cls isLoaded]) |
529 (hideUnloadedClasses not or:[cls isLoaded]) |
530 ifTrue:[ |
530 ifTrue:[ |
531 (cls isNameSpace not or:[cls == Smalltalk]) ifTrue:[ |
531 (cls isRealNameSpace not) ifTrue:[ |
532 doInclude := (selectedPackages includes:cls package). |
532 doInclude := (selectedPackages includes:cls package). |
533 doInclude ifFalse:[ |
533 doInclude ifFalse:[ |
534 cls isJavaClass ifFalse:[ |
534 cls isJavaClass ifFalse:[ |
535 doInclude := (cls methodDictionary contains:[:mthd | selectedPackages includes:mthd package]) |
535 doInclude := (cls methodDictionary contains:[:mthd | selectedPackages includes:mthd package]) |
536 or:[ cls class methodDictionary contains:[:mthd | selectedPackages includes:mthd package]]. |
536 or:[ cls class methodDictionary contains:[:mthd | selectedPackages includes:mthd package]]. |
543 ] |
543 ] |
544 ] |
544 ] |
545 ] |
545 ] |
546 |
546 |
547 "Created: / 17-02-2000 / 23:49:37 / cg" |
547 "Created: / 17-02-2000 / 23:49:37 / cg" |
548 "Modified: / 17-08-2006 / 15:08:32 / cg" |
548 "Modified: / 10-11-2006 / 17:15:15 / cg" |
549 ! ! |
549 ! ! |
550 |
550 |
551 !ProjectList methodsFor:'private'! |
551 !ProjectList methodsFor:'private'! |
552 |
552 |
553 allShownProjects |
553 allShownProjects |
574 ]. |
574 ]. |
575 |
575 |
576 Smalltalk allClassesDo:[:eachClass | |
576 Smalltalk allClassesDo:[:eachClass | |
577 |cls pkg p classPackage| |
577 |cls pkg p classPackage| |
578 |
578 |
579 (eachClass isNameSpace not or:[eachClass == Smalltalk]) ifTrue:[ |
579 (eachClass isRealNameSpace not) ifTrue:[ |
580 |
580 |
581 (hideUnloaded not or:[eachClass isLoaded]) ifTrue:[ |
581 (hideUnloaded not or:[eachClass isLoaded]) ifTrue:[ |
582 cls := eachClass theNonMetaclass. |
582 cls := eachClass theNonMetaclass. |
583 cls isPrivate ifTrue:[ |
583 cls isPrivate ifTrue:[ |
584 cls := cls topOwningClass |
584 cls := cls topOwningClass |
621 generator := inGeneratorHolder value. |
621 generator := inGeneratorHolder value. |
622 generator isNil ifTrue:[^ #() ]. |
622 generator isNil ifTrue:[^ #() ]. |
623 generator do:[:prj | allProjects add:prj]. |
623 generator do:[:prj | allProjects add:prj]. |
624 ]. |
624 ]. |
625 ^ allProjects asOrderedCollection. |
625 ^ allProjects asOrderedCollection. |
|
626 |
|
627 "Modified: / 10-11-2006 / 17:14:48 / cg" |
626 ! |
628 ! |
627 |
629 |
628 defaultSlaveModeValue |
630 defaultSlaveModeValue |
629 |mode| |
631 |mode| |
630 |
632 |
804 ! ! |
806 ! ! |
805 |
807 |
806 !ProjectList class methodsFor:'documentation'! |
808 !ProjectList class methodsFor:'documentation'! |
807 |
809 |
808 version |
810 version |
809 ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.27 2006-10-18 11:11:24 cg Exp $' |
811 ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.28 2006-11-10 16:22:54 cg Exp $' |
810 ! ! |
812 ! ! |