--- a/AbstractSourceCodeManager.st Thu Dec 07 10:54:36 2017 +0100
+++ b/AbstractSourceCodeManager.st Thu Dec 07 10:55:39 2017 +0100
@@ -143,6 +143,26 @@
"
!
+branchStartTagFor:branchName
+ "this tag is used to tag the original starting point of a branch;
+ i.e. the head version from which the branch was created.
+ Here, we use <branchTagPrefix><branchName>_0"
+
+ ^ (self branchTagFor:branchName),'_0'
+
+ "Created: / 07-12-2017 / 10:23:13 / cg"
+!
+
+branchTagFor:branchName
+ "this tag is used to tag the current branch-head of a branch (or the branch as such);
+ i.e. the last version checked onto the branch.
+ Here, we use <branchTagPrefix><branchName>"
+
+ ^ (self branchTagPrefix),branchName
+
+ "Created: / 07-12-2017 / 10:24:03 / cg"
+!
+
branchTagPrefix
^ 'branch_'