equal
deleted
inserted
replaced
327 theList := Set new. |
327 theList := Set new. |
328 generator := inGeneratorHolder value. |
328 generator := inGeneratorHolder value. |
329 generator isNil ifTrue:[^ #() ]. |
329 generator isNil ifTrue:[^ #() ]. |
330 generator do:[:prj | theList add:prj]. |
330 generator do:[:prj | theList add:prj]. |
331 theList := theList asOrderedCollection sort. |
331 theList := theList asOrderedCollection sort. |
332 theList addFirst:(self class nameListEntryForALL asText allItalic). |
332 theList addFirst:(self class nameListEntryForALL allItalic). |
333 ^ theList |
333 ^ theList |
334 |
334 |
335 "Created: / 25.2.2000 / 21:24:26 / cg" |
335 "Created: / 25.2.2000 / 21:24:26 / cg" |
336 ! |
336 ! |
337 |
337 |
359 AdditionalEmptyCategories := AdditionalEmptyCategories select:[:cat | (categories includes:cat) not]. |
359 AdditionalEmptyCategories := AdditionalEmptyCategories select:[:cat | (categories includes:cat) not]. |
360 categories addAll:AdditionalEmptyCategories. |
360 categories addAll:AdditionalEmptyCategories. |
361 ]. |
361 ]. |
362 categories := categories asOrderedCollection. |
362 categories := categories asOrderedCollection. |
363 categories sort. |
363 categories sort. |
364 categories addFirst:(self class nameListEntryForALL asText allItalic). |
364 categories addFirst:(self class nameListEntryForALL allItalic). |
365 ^ categories |
365 ^ categories |
366 |
366 |
367 "Created: / 5.2.2000 / 13:42:12 / cg" |
367 "Created: / 5.2.2000 / 13:42:12 / cg" |
368 "Modified: / 25.2.2000 / 21:26:04 / cg" |
368 "Modified: / 25.2.2000 / 21:26:04 / cg" |
369 ! |
369 ! |
396 allNamespaces := allNamespaces select:[:ns | ns isTopLevelNameSpace]. |
396 allNamespaces := allNamespaces select:[:ns | ns isTopLevelNameSpace]. |
397 ]. |
397 ]. |
398 allNamespaces := allNamespaces collect:[:ns | ns name]. |
398 allNamespaces := allNamespaces collect:[:ns | ns name]. |
399 allNamespaces := allNamespaces asOrderedCollection. |
399 allNamespaces := allNamespaces asOrderedCollection. |
400 allNamespaces sort. |
400 allNamespaces sort. |
401 allNamespaces addFirst:(self class nameListEntryForALL asText allItalic). |
401 allNamespaces addFirst:(self class nameListEntryForALL allItalic). |
402 ^ allNamespaces |
402 ^ allNamespaces |
403 |
403 |
404 "Created: / 25.2.2000 / 21:21:14 / cg" |
404 "Created: / 25.2.2000 / 21:21:14 / cg" |
405 "Modified: / 25.2.2000 / 21:26:41 / cg" |
405 "Modified: / 25.2.2000 / 21:26:41 / cg" |
406 ! |
406 ! |
448 "/ remove those that are present ... |
448 "/ remove those that are present ... |
449 AdditionalEmptyProjects := AdditionalEmptyProjects select:[:pkg | (allProjects includes:pkg) not]. |
449 AdditionalEmptyProjects := AdditionalEmptyProjects select:[:pkg | (allProjects includes:pkg) not]. |
450 allProjects addAll:AdditionalEmptyProjects. |
450 allProjects addAll:AdditionalEmptyProjects. |
451 ]. |
451 ]. |
452 allProjects sort. |
452 allProjects sort. |
453 allProjects addFirst:(self class nameListEntryForALL asText allItalic). |
453 allProjects addFirst:(self class nameListEntryForALL allItalic). |
454 ^ allProjects |
454 ^ allProjects |
455 |
455 |
456 "Created: / 25.2.2000 / 21:22:06 / cg" |
456 "Created: / 25.2.2000 / 21:22:06 / cg" |
457 "Modified: / 25.2.2000 / 21:27:27 / cg" |
457 "Modified: / 25.2.2000 / 21:27:27 / cg" |
458 ! |
458 ! |
534 ! ! |
534 ! ! |
535 |
535 |
536 !ClassGeneratorList class methodsFor:'documentation'! |
536 !ClassGeneratorList class methodsFor:'documentation'! |
537 |
537 |
538 version |
538 version |
539 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.8 2009-09-14 18:16:21 cg Exp $' |
539 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.9 2009-10-22 12:40:06 cg Exp $' |
540 ! ! |
540 ! |
|
541 |
|
542 version_CVS |
|
543 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.9 2009-10-22 12:40:06 cg Exp $' |
|
544 ! ! |