equal
deleted
inserted
replaced
2553 |
2553 |
2554 updateListOfMatchingProjects |
2554 updateListOfMatchingProjects |
2555 |query matching projectType idx| |
2555 |query matching projectType idx| |
2556 |
2556 |
2557 projectType := self projectType. |
2557 projectType := self projectType. |
2558 projectType == ProjectDefinition libraryType ifTrue:[ |
2558 projectType = ProjectDefinition libraryType ifTrue:[ |
2559 query := #isLibraryDefinition |
2559 query := #isLibraryDefinition |
2560 ] ifFalse:[ |
2560 ] ifFalse:[ |
2561 projectType == ProjectDefinition guiApplicationType ifTrue:[ |
2561 projectType = ProjectDefinition guiApplicationType ifTrue:[ |
2562 query := #isGUIApplication |
2562 query := #isGUIApplication |
2563 ] ifFalse:[ |
2563 ] ifFalse:[ |
2564 projectType == ProjectDefinition nonGuiApplicationType ifTrue:[ |
2564 projectType = ProjectDefinition nonGuiApplicationType ifTrue:[ |
2565 query := #isConsoleApplication |
2565 query := #isConsoleApplication |
2566 ] ifFalse:[ |
2566 ] ifFalse:[ |
2567 self error. |
2567 self error. |
2568 ]. |
2568 ]. |
2569 ]. |
2569 ]. |
2574 matching := ProjectDefinition allSubclasses |
2574 matching := ProjectDefinition allSubclasses |
2575 select:[:defClass | |
2575 select:[:defClass | |
2576 |match| |
2576 |match| |
2577 |
2577 |
2578 match := false. |
2578 match := false. |
|
2579 |
2579 defClass isAbstract ifFalse:[ |
2580 defClass isAbstract ifFalse:[ |
2580 (self hideSTXProjects value not |
2581 (self hideSTXProjects value not |
2581 or:[ defClass package asPackageId module ~= 'stx' ]) |
2582 or:[ defClass package asPackageId module ~= 'stx' ]) |
2582 ifTrue:[ |
2583 ifTrue:[ |
2583 match := defClass perform:query |
2584 match := defClass perform:query |
2584 ]. |
2585 ]. |
2585 ]. |
2586 ]. |
2586 ]. |
2587 match |
|
2588 ]. |
2587 |
2589 |
2588 matching sort:[:a :b | a name < b name]. |
2590 matching sort:[:a :b | a name < b name]. |
2589 self listOfMatchingProjects value:matching. |
2591 self listOfMatchingProjects value:matching. |
2590 self listOfMatchingPackageIds value:(matching collect:[:def | def package]). |
2592 self listOfMatchingPackageIds value:(matching collect:[:def | def package]). |
2591 |
2593 |
2593 idx == 0 ifTrue:[ |
2595 idx == 0 ifTrue:[ |
2594 self selectedProjectIndexHolder value:nil. |
2596 self selectedProjectIndexHolder value:nil. |
2595 ] ifFalse:[ |
2597 ] ifFalse:[ |
2596 self selectedProjectIndexHolder value:idx. |
2598 self selectedProjectIndexHolder value:idx. |
2597 ]. |
2599 ]. |
|
2600 |
|
2601 "Modified: / 04-12-2011 / 19:55:37 / cg" |
2598 ! |
2602 ! |
2599 |
2603 |
2600 updateListOfNewProjectsName |
2604 updateListOfNewProjectsName |
2601 |
2605 |
2602 |loadedProjectIDsWithoutProjectDefinition| |
2606 |loadedProjectIDsWithoutProjectDefinition| |