41 !SVNSourceCodeManager class methodsFor:'source code access'!

    42 

    43 loadPackageWithId: aPackageId fromRepositoryAsAutoloaded: doLoadAsAutoloaded

    44 

    45     | retval loadBlock manager |

    46 

    47     manager := SVN::RepositoryManager current.

    48 

    49     loadBlock := [

    50         | repo packageDir |

    51         repo := manager repositoryForPackage: aPackageId.

    52         retval := (repo notNil and:[repo exists]) ifTrue:[

    53             repo workingCopy checkout.

    54             packageDir := Smalltalk packageDirectoryForPackageId:aPackageId.

    55             Smalltalk

    56                 loadPackageWithId:aPackageId

    57                 fromDirectory:packageDir

    58                 asAutoloaded:doLoadAsAutoloaded

    59         ] ifFalse:[false]

    60     ].

    61 

    62     (Query query == true)

    63         ifTrue:[loadBlock value]

    64         ifFalse:[

    65             Query 

    66                 answer: true 

    67                 do:[

    68                     SVN::ProgressDialog

    69                         openOn: loadBlock

    70                         title: ' Loading...'

    71                         subtitle: aPackageId asText allItalic

    72                 ]

    73     ].

    74 

    75     ^retval

    76 

    77     "Created: / 09-04-2009 / 17:20:01 / Jan Vrany <vranyj1@fel.cvut.cz>"

    78 ! !

    79