SourceCodeManagerUtilities.st
changeset 3679 287d95522230
parent 3676 51859e5df3b5
child 3683 fb6ad154b94d
equal deleted inserted replaced
3678:a4ef1d7abbc4 3679:287d95522230
  2183     "/
  2183     "/
  2184     "/ class in repository - ask for revision
  2184     "/ class in repository - ask for revision
  2185     "/
  2185     "/
  2186     SourceCodeManagerError handle:[:ex |
  2186     SourceCodeManagerError handle:[:ex |
  2187         Dialog warn:(resources 
  2187         Dialog warn:(resources 
  2188                                 stringWithCRs:'Could not fetch source of "%1".\\Please check your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
  2188                                 stringWithCRs:'Could not fetch revision info of "%1".\\Please check your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
  2189                                 with:classToCompare name
  2189                                 with:classToCompare name
  2190                                 with:classToCompare sourceCodeManager managerTypeName
  2190                                 with:classToCompare sourceCodeManager managerTypeName
  2191                                 with:classToCompare package).
  2191                                 with:classToCompare package).
  2192         ^ self.
  2192         ^ self.
  2193 
       
  2194     ] do:[
  2193     ] do:[
  2195         newestRev := mgr newestRevisionOf:classToCompare.
  2194         newestRev := mgr newestRevisionOf:classToCompare.
  2196     ].
  2195     ].
  2197     askForRevision ifTrue:[
  2196     askForRevision ifTrue:[
  2198         msg := resources string:'Compare to revision: (empty for newest)'.
  2197         msg := resources string:'Compare to revision: (empty for newest)'.
  4294 ! !
  4293 ! !
  4295 
  4294 
  4296 !SourceCodeManagerUtilities class methodsFor:'documentation'!
  4295 !SourceCodeManagerUtilities class methodsFor:'documentation'!
  4297 
  4296 
  4298 version
  4297 version
  4299     ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.313 2014-12-01 12:05:56 cg Exp $'
  4298     ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.314 2014-12-01 14:34:37 cg Exp $'
  4300 !
  4299 !
  4301 
  4300 
  4302 version_CVS
  4301 version_CVS
  4303     ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.313 2014-12-01 12:05:56 cg Exp $'
  4302     ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.314 2014-12-01 14:34:37 cg Exp $'
  4304 ! !
  4303 ! !
  4305 
  4304