SourceCodeManagerUtilities.st
changeset 3534 914309d517ed
parent 3514 a35b833ed992
child 3536 cb8679184d3b
--- a/SourceCodeManagerUtilities.st	Sun Mar 30 00:36:24 2014 +0100
+++ b/SourceCodeManagerUtilities.st	Tue Apr 01 22:41:44 2014 +0200
@@ -1166,6 +1166,25 @@
     "Created: / 29-12-2011 / 14:35:06 / cg"
 !
 
+checkOutPackages: packages askForRevision: askForRevision
+    "Updates code of given packages (loaded in the image) to a specific revision.
+     If `askForRevision` is true, then user is asked to specify to which revision to
+     update. If `askForRevision` is false, then packages are updated to a 'newest'
+     revision. 
+
+     NOTE: Definition of `newest` revision may vary. For SCMs which allows for multiple
+     heads, it is not clear which one it is. In that case, even if `askForRevision` is
+     false, this method may result in user interation, asking user to select which of the
+     newest she wants.
+
+     NOTE: Naming is bit confusing, it should be something like #updatePackages:ask...
+     but to keep this in line with other methods, we use #checkOutPackages"
+
+    ^ self subclassResponsibility.
+
+    "Created: / 01-04-2014 / 21:50:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 checkoutClass:aClass askForMerge:askForMerge
     "check-out a class from the source repository."
 
@@ -3954,10 +3973,10 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.297 2014-03-02 01:40:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.298 2014-04-01 20:41:44 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.297 2014-03-02 01:40:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.298 2014-04-01 20:41:44 vrany Exp $'
 ! !