equal
deleted
inserted
replaced
220 |
220 |
221 "Modified: 14.2.1997 / 21:18:35 / cg" |
221 "Modified: 14.2.1997 / 21:18:35 / cg" |
222 ! ! |
222 ! ! |
223 |
223 |
224 !AbstractSourceCodeManager class methodsFor:'basic administration'! |
224 !AbstractSourceCodeManager class methodsFor:'basic administration'! |
|
225 |
|
226 checkForExistingContainer:fileName inPackage:aPackage |
|
227 "check if a source-code container is present in a packages directory." |
|
228 |
|
229 |packageDir moduleDir| |
|
230 |
|
231 packageDir := aPackage asPackageId directory. |
|
232 moduleDir := aPackage asPackageId module. |
|
233 |
|
234 ^ self |
|
235 checkForExistingContainerInModule:moduleDir |
|
236 directory:packageDir |
|
237 container:fileName |
|
238 |
|
239 "Created: / 13-09-2006 / 18:10:30 / cg" |
|
240 ! |
225 |
241 |
226 checkForExistingContainerForClass:aClass |
242 checkForExistingContainerForClass:aClass |
227 "check if a source-code container for a given class is present in the repository." |
243 "check if a source-code container for a given class is present in the repository." |
228 |
244 |
229 |sourceInfo packageDir moduleDir classFileName| |
245 |sourceInfo packageDir moduleDir classFileName| |
2356 ! ! |
2372 ! ! |
2357 |
2373 |
2358 !AbstractSourceCodeManager class methodsFor:'documentation'! |
2374 !AbstractSourceCodeManager class methodsFor:'documentation'! |
2359 |
2375 |
2360 version |
2376 version |
2361 ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.191 2006-09-12 14:13:16 cg Exp $' |
2377 ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.192 2006-09-13 16:18:45 cg Exp $' |
2362 ! ! |
2378 ! ! |
2363 |
2379 |
2364 AbstractSourceCodeManager initialize! |
2380 AbstractSourceCodeManager initialize! |