equal
deleted
inserted
replaced
17 PackagesBeingLoaded Verbose AbbrevDictionary AccessLock' |
17 PackagesBeingLoaded Verbose AbbrevDictionary AccessLock' |
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'System-Support-Projects' |
19 category:'System-Support-Projects' |
20 ! |
20 ! |
21 |
21 |
22 ProjectDefinition class instanceVariableNames:'safeForOverwrittenMethods extensionOverwriteInfo projectIsLoaded |
22 ProjectDefinition class instanceVariableNames:'safeForOverwrittenMethods extensionOverwriteInfo projectIsLoaded' |
23 loadDirectory' |
|
24 |
23 |
25 " |
24 " |
26 No other class instance variables are inherited by this class. |
25 No other class instance variables are inherited by this class. |
27 " |
26 " |
28 ! |
27 ! |
466 |
465 |
467 loadDirectory |
466 loadDirectory |
468 "if I was loaded from a directory (as oposed to loaded via a dll or from a scm), |
467 "if I was loaded from a directory (as oposed to loaded via a dll or from a scm), |
469 return that directory. Otherwise return nil." |
468 return that directory. Otherwise return nil." |
470 |
469 |
471 ^ loadDirectory |
470 ^ self getAttribute:#loadDirectory |
472 ! |
471 ! |
473 |
472 |
474 loadDirectory:aDirectory |
473 loadDirectory:aDirectory |
475 "remember the directory from which I was loaded from" |
474 "remember the directory from which I was loaded from" |
476 |
475 |
477 loadDirectory := aDirectory |
476 self setAttribute:#loadDirectory to:aDirectory |
478 ! |
477 ! |
479 |
478 |
480 module |
479 module |
481 ^ self moduleOfClass:self |
480 ^ self moduleOfClass:self |
482 |
481 |
636 packageDirectory |
635 packageDirectory |
637 "if I was loaded from a directory (as oposed to loaded via a dll or from a scm), |
636 "if I was loaded from a directory (as oposed to loaded via a dll or from a scm), |
638 return that directory. |
637 return that directory. |
639 Otherwise ask Smalltalk for my package directory a long the package path." |
638 Otherwise ask Smalltalk for my package directory a long the package path." |
640 |
639 |
641 loadDirectory notNil ifTrue:[ ^ loadDirectory ]. |
640 |loadDirectory| |
|
641 |
|
642 (loadDirectory := self loadDirectory notNil) ifTrue:[ ^ loadDirectory ]. |
642 ^ Smalltalk packageDirectoryForPackageId: self package |
643 ^ Smalltalk packageDirectoryForPackageId: self package |
643 |
644 |
644 "Created: / 15-06-2009 / 12:01:18 / Jan Vrany <vranyj1@fel.cvut.cz>" |
645 "Created: / 15-06-2009 / 12:01:18 / Jan Vrany <vranyj1@fel.cvut.cz>" |
645 ! |
646 ! |
646 |
647 |
6738 ! ! |
6739 ! ! |
6739 |
6740 |
6740 !ProjectDefinition class methodsFor:'documentation'! |
6741 !ProjectDefinition class methodsFor:'documentation'! |
6741 |
6742 |
6742 version |
6743 version |
6743 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.399 2012-12-13 14:17:36 cg Exp $' |
6744 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.400 2012-12-13 14:29:36 cg Exp $' |
6744 ! |
6745 ! |
6745 |
6746 |
6746 version_CVS |
6747 version_CVS |
6747 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.399 2012-12-13 14:17:36 cg Exp $' |
6748 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.400 2012-12-13 14:29:36 cg Exp $' |
6748 ! |
6749 ! |
6749 |
6750 |
6750 version_SVN |
6751 version_SVN |
6751 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6752 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6752 ! ! |
6753 ! ! |