--- a/MCSourceCodeManager.st	Fri Dec 02 16:10:48 2011 +0100
+++ b/MCSourceCodeManager.st	Sun Dec 04 15:42:12 2011 +0100
@@ -1,29 +1,13 @@
 "{ Package: 'stx:goodies/monticello' }"
 
 AbstractSourceCodeManager subclass:#MCSourceCodeManager
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Monticello-St/X support'
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Monticello-St/X support'
 !
 
 
-!MCSourceCodeManager class methodsFor:'* As yet uncategorized *'!
-
-forgetDisabledModules
-
-    "Nothing to do"
-
-    "Created: / 10-06-2011 / 14:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-savePreferencesOn:aFileStream
-
-    "Nothing to do now..."
-
-    "Created: / 10-06-2011 / 14:16:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !MCSourceCodeManager class methodsFor:'accessing'!
 
 repositoryNameForPackage:packageId 
@@ -41,6 +25,20 @@
     ^ self shouldImplement
 !
 
+checkinPackage:packageId
+    | mcPackage workingCopy |
+
+    mcPackage := MCPackage named: packageId.
+    workingCopy := mcPackage workingCopy.
+    MCCommitDialog new
+        workingCopy: workingCopy;
+        open
+
+    "Created: / 14-09-2010 / 22:54:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 01-12-2011 / 21:47:18 / cg"
+    "Created: / 02-12-2011 / 14:42:51 / cg"
+!
+
 checkoutModule:aModule directory:aPackage andDo:aBlock
     "check out everything from a package into a temporary directory.
      Then evaluate aBlock, passing the name of that temp-directory.
@@ -110,6 +108,36 @@
     ^ self shouldImplement
 ! !
 
+!MCSourceCodeManager class methodsFor:'misc'!
+
+forgetDisabledModules
+
+    "Nothing to do"
+
+    "Created: / 10-06-2011 / 14:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+revisionStringForVersion:anMCVersion
+    |info|
+
+    info := anMCVersion info.
+
+    ^ '%1 %2 %3 %4'
+        bindWith:info name
+        with:info id       
+        with:info timeStamp printStringIso8601Format
+        with:info author
+
+    "Created: / 02-12-2011 / 14:25:05 / cg"
+!
+
+savePreferencesOn:aFileStream
+
+    "Nothing to do now..."
+
+    "Created: / 10-06-2011 / 14:16:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !MCSourceCodeManager class methodsFor:'queries'!
 
 isResponsibleForPackage:aStringOrSymbol
@@ -126,8 +154,33 @@
 managerTypeName
 
     ^'Monticello 1.x'
+    "/ ^'Monticello'
 
     "Created: / 26-10-2010 / 21:52:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-12-2011 / 11:33:14 / cg"
+!
+
+managerTypeNameShort
+    "Answers short version manager name suitable for UI,
+     i,e., CVS, SVN, P4. Used in cases where sorter strings
+     are preferred. Defaults to #managerTypeName"
+
+    ^ 'MC'
+
+    "Created: / 03-10-2011 / 13:28:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-12-2011 / 10:15:18 / cg"
+!
+
+nameOfVersionMethodForExtensions
+    ^ #'extensionsVersion_MC'
+
+    "Modified: / 02-12-2011 / 14:01:40 / cg"
+!
+
+nameOfVersionMethodInClasses
+    ^ #'version_MC'
+
+    "Modified: / 02-12-2011 / 14:01:49 / cg"
 !
 
 settingsApplicationClass
@@ -161,7 +214,9 @@
 revisionInfoFromString:aString
     "{ Pragma: +optSpace }"
 
-    ^ self shouldImplement
+    ^ MCStxVersionInfo fromMCVersionString:aString
+
+    "Modified: / 04-12-2011 / 10:05:06 / cg"
 ! !
 
 !MCSourceCodeManager class methodsFor:'subclass responsibility'!
@@ -175,11 +230,11 @@
 !MCSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSourceCodeManager.st,v 1.5 2011-12-01 20:02:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSourceCodeManager.st,v 1.6 2011-12-04 14:42:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSourceCodeManager.st,v 1.5 2011-12-01 20:02:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSourceCodeManager.st,v 1.6 2011-12-04 14:42:12 cg Exp $'
 !
 
 version_SVN