equal
deleted
inserted
replaced
453 initialOrganizerMode |
453 initialOrganizerMode |
454 ^ OrganizerCanvas organizerModeNamespace |
454 ^ OrganizerCanvas organizerModeNamespace |
455 ! |
455 ! |
456 |
456 |
457 listOfNamespaces |
457 listOfNamespaces |
458 |allNamespaces showAllNamespaces generator numClassesInChangeSet| |
458 |allNamespaces showAllNamespaces generator| |
459 |
459 |
460 showAllNamespaces := false. "/ only topLevel namespaces are shown |
460 showAllNamespaces := false. "/ only topLevel namespaces are shown |
461 showAllNamespaces := true. |
461 showAllNamespaces := true. |
462 |
462 |
463 allNamespaces := IdentitySet new. |
463 allNamespaces := IdentitySet new. |
477 "/ only topLevel namespaces are shown |
477 "/ only topLevel namespaces are shown |
478 "/ i.e. ignore subspaces |
478 "/ i.e. ignore subspaces |
479 |
479 |
480 allNamespaces := allNamespaces select:[:ns | ns isTopLevelNameSpace]. |
480 allNamespaces := allNamespaces select:[:ns | ns isTopLevelNameSpace]. |
481 ]. |
481 ]. |
|
482 "/JV@2011-12-04: Do not show java packages, they are all shown |
|
483 "/when JAVA namespace is shown. Use #askFor: here, as eXept's libbasic |
|
484 "/does not have #isJavaPackage |
|
485 allNamespaces := allNamespaces reject:[:ns | ns askFor: #isJavaPackage ]. |
|
486 |
482 allNamespaces := allNamespaces collect:[:ns | ns name]. |
487 allNamespaces := allNamespaces collect:[:ns | ns name]. |
483 ] ifFalse:[ |
488 ] ifFalse:[ |
484 generator := inGeneratorHolder value. |
489 generator := inGeneratorHolder value. |
485 generator isNil ifTrue:[^ #() ]. |
490 generator isNil ifTrue:[^ #() ]. |
486 generator do:[:ns | allNamespaces add:ns]. |
491 generator do:[:ns | allNamespaces add:ns]. |
503 allNamespaces addFirst:(self class nameListEntryForALL allItalic). |
508 allNamespaces addFirst:(self class nameListEntryForALL allItalic). |
504 ^ allNamespaces |
509 ^ allNamespaces |
505 |
510 |
506 "Created: / 18-02-2000 / 01:04:27 / cg" |
511 "Created: / 18-02-2000 / 01:04:27 / cg" |
507 "Modified: / 25-02-2000 / 22:11:29 / cg" |
512 "Modified: / 25-02-2000 / 22:11:29 / cg" |
508 "Modified: / 25-03-2010 / 18:23:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
513 "Modified: / 04-12-2011 / 12:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
509 ! |
514 ! |
510 |
515 |
511 makeDependent |
516 makeDependent |
512 Smalltalk addDependent:self |
517 Smalltalk addDependent:self |
513 |
518 |
548 ! ! |
553 ! ! |
549 |
554 |
550 !NamespaceList class methodsFor:'documentation'! |
555 !NamespaceList class methodsFor:'documentation'! |
551 |
556 |
552 version_CVS |
557 version_CVS |
553 ^ '§Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.18 2011/07/20 18:19:08 cg Exp §' |
558 ^ '§Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.19 2011/12/04 11:34:38 vrany Exp §' |
554 ! ! |
559 ! ! |