equal
deleted
inserted
replaced
40 |
40 |
41 !SVNSourceCodeManager class methodsFor:'source code access'! |
41 !SVNSourceCodeManager class methodsFor:'source code access'! |
42 |
42 |
43 loadPackageWithId: aPackageId fromRepositoryAsAutoloaded: doLoadAsAutoloaded |
43 loadPackageWithId: aPackageId fromRepositoryAsAutoloaded: doLoadAsAutoloaded |
44 |
44 |
45 | retval loadBlock manager | |
45 | retval loadBlock | |
46 |
46 |
47 manager := SVN::RepositoryManager current. |
|
48 |
47 |
49 loadBlock := [ |
48 loadBlock := [ |
50 | repo packageDir | |
49 | repo packageDir manager| |
|
50 manager := SVN::RepositoryManager current. |
51 repo := manager repositoryForPackage: aPackageId. |
51 repo := manager repositoryForPackage: aPackageId. |
52 retval := (repo notNil and:[repo exists]) ifTrue:[ |
52 retval := (repo notNil and:[repo exists]) ifTrue:[ |
53 repo workingCopy checkout. |
53 repo workingCopy checkout. |
54 packageDir := Smalltalk packageDirectoryForPackageId:aPackageId. |
54 packageDir := Smalltalk packageDirectoryForPackageId:aPackageId. |
55 Smalltalk |
55 Smalltalk |