equal
deleted
inserted
replaced
2138 ^ false. |
2138 ^ false. |
2139 ]. |
2139 ]. |
2140 |
2140 |
2141 className := aClass name. |
2141 className := aClass name. |
2142 |
2142 |
2143 aClass isProjectDefinition ifTrue:[ |
2143 aClass package ~= PackageId noProjectID ifTrue:[ |
2144 "/ no way - their package is already known and fix. |
2144 module := aClass package asPackageId module. |
2145 module := aClass module. |
2145 directory := aClass package asPackageId directory. |
2146 directory := aClass moduleDirectory. |
|
2147 ] ifFalse:[ |
2146 ] ifFalse:[ |
2148 "/ |
2147 "/ |
2149 "/ defaults, if nothing at all is known |
2148 "/ defaults, if nothing at all is known |
2150 "/ |
2149 "/ |
2151 (module := LastModule) isNil ifTrue:[ |
2150 (module := LastModule) isNil ifTrue:[ |
2152 module := (OperatingSystem getLoginName). |
2151 module := (OperatingSystem getLoginName). |
2153 ]. |
2152 ]. |
2154 (directory := LastPackage) isNil ifTrue:[ |
2153 (directory := LastPackage) isNil ifTrue:[ |
2155 directory := 'private'. |
2154 directory := 'private'. |
2156 ]. |
2155 ]. |
2157 ]. |
2156 ]. |
2158 |
2157 |
2159 "/ |
2158 "/ |
2160 "/ try to extract some useful defaults from the current project |
2159 "/ try to extract some useful defaults from the current project |
2161 "/ |
2160 "/ |
3889 ! ! |
3888 ! ! |
3890 |
3889 |
3891 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
3890 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
3892 |
3891 |
3893 version |
3892 version |
3894 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.267 2013-03-27 16:39:07 cg Exp $' |
3893 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.268 2013-03-27 19:36:57 cg Exp $' |
3895 ! |
3894 ! |
3896 |
3895 |
3897 version_CVS |
3896 version_CVS |
3898 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.267 2013-03-27 16:39:07 cg Exp $' |
3897 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.268 2013-03-27 19:36:57 cg Exp $' |
3899 ! ! |
3898 ! ! |
3900 |
3899 |