--- a/mercurial/HGCommand.st	Thu Feb 13 11:46:01 2014 +0000
+++ b/mercurial/HGCommand.st	Thu Feb 13 16:25:49 2014 +0000
@@ -75,6 +75,13 @@
 	privateIn:HGCommand
 !
 
+HGCommand subclass:#init
+	instanceVariableNames:'path'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:HGCommand
+!
+
 HGCommand subclass:#locate
 	instanceVariableNames:'revision'
 	classVariableNames:''
@@ -382,6 +389,12 @@
     "Created: / 27-11-2012 / 21:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+init
+    ^init new
+
+    "Created: / 13-02-2014 / 12:37:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 locate
     ^locate new
 
@@ -463,6 +476,12 @@
         execute
 
     "Created: / 01-10-2012 / 00:06:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+init: aStringOrFilename
+    ^ self init path: aStringOrFilename; yourself
+
+    "Created: / 13-02-2014 / 12:37:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGCommand methodsFor:'accessing'!
@@ -1187,6 +1206,33 @@
     "Modified: / 08-03-2013 / 19:35:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!HGCommand::init methodsFor:'accessing'!
+
+path
+    ^ path
+!
+
+path:aStringOrFilename
+    path := aStringOrFilename.
+! !
+
+!HGCommand::init methodsFor:'private'!
+
+argumentsCommandOn:stream
+    stream nextPut: path asFilename asAbsoluteFilename pathName
+
+    "Created: / 13-02-2014 / 12:36:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+parseOutput:stream
+    "Parses output of 'hg' command, i.e. commit, log, update, checkout,
+     etc."
+
+    ^ nil
+
+    "Created: / 13-02-2014 / 12:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !HGCommand::locate methodsFor:'accessing'!
 
 revision