equal
deleted
inserted
replaced
2375 "search for any class which has extensions from aProjectID. |
2375 "search for any class which has extensions from aProjectID. |
2376 Return the extension-methods" |
2376 Return the extension-methods" |
2377 |
2377 |
2378 |methods| |
2378 |methods| |
2379 |
2379 |
2380 methods := IdentitySet new. |
2380 methods := OrderedCollection new. |
2381 Smalltalk allClassesDo:[:eachClass | |
2381 Smalltalk allClassesDo:[:eachClass | |
2382 |classPackage| |
2382 |classPackage| |
2383 |
2383 |
2384 classPackage := eachClass package. |
2384 classPackage := eachClass package. |
2385 eachClass instAndClassMethodsDo:[:mthd | |
2385 eachClass instAndClassMethodsDo:[:mthd | |
2388 methods add:mthd |
2388 methods add:mthd |
2389 ] |
2389 ] |
2390 ]. |
2390 ]. |
2391 ]. |
2391 ]. |
2392 ]. |
2392 ]. |
|
2393 methods sort:[:m1 :m2 | m1 mclass name < m2 mclass name]. |
|
2394 methods sort:[:m1 :m2 | m2 mclass theNonMetaclass isSubclassOf:m1 mclass theNonMetaclass]. |
2393 ^ methods |
2395 ^ methods |
2394 |
2396 |
2395 " |
2397 " |
2396 self searchForExtensionsWithProject:#'bosch:dapasx' |
2398 self searchForExtensionsWithProject:#'bosch:dapasx' |
2397 self searchForExtensionsWithProject:#'cg:oyster' |
2399 self searchForExtensionsWithProject:#'cg:oyster' |
2398 " |
2400 " |
2399 |
2401 |
2400 "Created: / 17-08-2006 / 21:19:04 / cg" |
2402 "Created: / 17-08-2006 / 21:19:04 / cg" |
|
2403 "Modified: / 15-09-2006 / 16:56:57 / cg" |
2401 ! |
2404 ! |
2402 |
2405 |
2403 searchForProjectsWhichProvideHeaderFiles |
2406 searchForProjectsWhichProvideHeaderFiles |
2404 |addPackage myPackageID requiredPackages| |
2407 |addPackage myPackageID requiredPackages| |
2405 |
2408 |
2756 " |
2759 " |
2757 |
2760 |
2758 "Created: / 17-08-2006 / 21:21:48 / cg" |
2761 "Created: / 17-08-2006 / 21:21:48 / cg" |
2759 ! |
2762 ! |
2760 |
2763 |
|
2764 forEachContentsMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition |
|
2765 aTwoArgBlock |
|
2766 value:(self classNamesAndAttributes_code_ignoreOldDefinition:ignoreOldDefinition) |
|
2767 value:'description - contents'. |
|
2768 |
|
2769 aTwoArgBlock |
|
2770 value: self extensionMethodNames_code |
|
2771 value: 'description - contents'. |
|
2772 |
|
2773 "Created: / 15-09-2006 / 16:47:54 / cg" |
|
2774 ! |
|
2775 |
2761 forEachMethodsCodeToCompileDo:aTwoArgBlock |
2776 forEachMethodsCodeToCompileDo:aTwoArgBlock |
2762 self forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:false |
2777 self forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:false |
2763 ! |
2778 ! |
2764 |
2779 |
2765 forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition |
2780 forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition |
2827 ! ! |
2842 ! ! |
2828 |
2843 |
2829 !ProjectDefinition class methodsFor:'documentation'! |
2844 !ProjectDefinition class methodsFor:'documentation'! |
2830 |
2845 |
2831 version |
2846 version |
2832 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.63 2006-09-14 21:00:02 cg Exp $' |
2847 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.64 2006-09-15 14:57:04 cg Exp $' |
2833 ! ! |
2848 ! ! |
2834 |
2849 |
2835 ProjectDefinition initialize! |
2850 ProjectDefinition initialize! |