equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2006 by eXept Software AG |
2 COPYRIGHT (c) 2006 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
831 self postLoadAction. |
829 self postLoadAction. |
832 self executeHooks: #postLoad. |
830 self executeHooks: #postLoad. |
833 ]. |
831 ]. |
834 ! |
832 ! |
835 |
833 |
|
834 projectTags |
|
835 "a list of resource-tags used in the project. |
|
836 These are offered in the browser's methodList menu as 'Tag as' items. |
|
837 Allowing convenient tagging for things like '<resource: EXPECCO_API>'. |
|
838 When redefined, a collection of useful tag-strings should be returned." |
|
839 |
|
840 ^ #() |
|
841 |
|
842 "Created: / 15-02-2017 / 16:42:48 / cg" |
|
843 ! |
|
844 |
836 topRelativePathTo:aBaseFilename inPackage:aPackageID architecture:arch |
845 topRelativePathTo:aBaseFilename inPackage:aPackageID architecture:arch |
837 "Returns the path to stx counting the number of $/ and $: in the package name |
846 "Returns the path to stx counting the number of $/ and $: in the package name |
838 and adding for each one '../' to get the ST/X top directory" |
847 and adding for each one '../' to get the ST/X top directory" |
839 |
848 |
840 |p separator| |
849 |p separator| |
2303 for those, redefine #referencedPrerequisites or #mandatoryPreRequisites." |
2312 for those, redefine #referencedPrerequisites or #mandatoryPreRequisites." |
2304 |
2313 |
2305 ^ #() |
2314 ^ #() |
2306 |
2315 |
2307 "Modified: / 17-08-2006 / 19:57:46 / cg" |
2316 "Modified: / 17-08-2006 / 19:57:46 / cg" |
|
2317 ! |
|
2318 |
|
2319 superProject |
|
2320 "return the package which contains me as subProject, |
|
2321 or if not found, which contains me under its directory hierarchy, |
|
2322 or nil if none found" |
|
2323 |
|
2324 |p superPackage idx| |
|
2325 |
|
2326 ProjectDefinition allSubclassesDo:[:prjDef | |
|
2327 (prjDef subProjects includes:package) ifTrue:[^ prjDef]. |
|
2328 ]. |
|
2329 p := package. |
|
2330 [ |
|
2331 (idx := p lastIndexOf:$/) ~~ 0 |
|
2332 ] whileTrue:[ |
|
2333 |defClass| |
|
2334 |
|
2335 superPackage := p copyTo:idx-1. |
|
2336 (defClass := ProjectDefinition definitionClassForPackage:superPackage) notNil ifTrue:[ |
|
2337 ^ defClass |
|
2338 ]. |
|
2339 p := superPackage. |
|
2340 ]. |
|
2341 ^ nil |
|
2342 |
|
2343 " |
|
2344 stx_goodies_refactoryBrowser_lint superProject |
|
2345 exept_expecco_plugin_guiBrowser superProject |
|
2346 " |
|
2347 |
|
2348 "Created: / 15-02-2017 / 16:49:05 / cg" |
2308 ! ! |
2349 ! ! |
2309 |
2350 |
2310 !ProjectDefinition class methodsFor:'description - actions'! |
2351 !ProjectDefinition class methodsFor:'description - actions'! |
2311 |
2352 |
2312 postLoadAction |
2353 postLoadAction |