--- a/common/SCMAbstractSourceCodeManager.st	Wed Nov 14 01:15:30 2012 +0000
+++ b/common/SCMAbstractSourceCodeManager.st	Wed Nov 14 01:56:14 2012 +0000
@@ -263,6 +263,73 @@
     "Modified: / 14-11-2012 / 01:07:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'!
+
+checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass usingManager:aManagerOrNil
+    "check a class into the source repository.
+     If the argument, aLogInfoOrNil isNil, ask interactively for log-message.
+     If doCheckClass is true, the class is checked for send of halts etc."
+
+   ^self checkinClasses:(Array with: aClass) withInfo:aLogInfoOrNil withCheck:doCheckClass usingManager:aManagerOrNil
+
+    "Created: / 25-12-2011 / 23:45:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'!
+
+compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
+    |diffSet|
+
+    diffSet := self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest.
+
+    (Tools::ChangeSetDiffTool new)
+        diffset:diffSet;
+        title:('Differences of %1' bindWith:aProject);
+        open.
+
+    "Created: / 18-01-2012 / 16:04:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'!
+
+diffSetOfProject: package againstRepositoryVersionFrom:dateOrNil
+
+    self shouldImplement
+
+    "Created: / 15-10-2011 / 23:26:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-11-2012 / 01:07:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'!
+
+tagClass:aClass as:tag
+
+    Dialog warn: 'Individual class tagging not supported by SubVersion. Tag whole package instead'.
+
+    "Modified: / 12-09-2006 / 13:03:59 / cg"
+    "Created: / 15-10-2011 / 22:48:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'!
+
+tagClasses:classes as:tag
+
+    Dialog warn: 'Individual class tagging not supported by SubVersion. Tag whole package instead'.
+
+    "Modified: / 12-09-2006 / 13:03:59 / cg"
+    "Created: / 15-10-2011 / 22:49:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!SCMAbstractSourceCodeManager::Utilities methodsFor:'utilities-cvs'!
+
+tagPackage: package as:tag
+
+    Dialog warn: 'Not yet implemented'
+
+    "Created: / 12-09-2006 / 13:04:29 / cg"
+    "Created: / 15-10-2011 / 22:49:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !SCMAbstractSourceCodeManager class methodsFor:'documentation'!
 
 version_SVN