--- a/mercurial/HGWorkingCopy.st Sun Mar 03 20:45:13 2013 +0000
+++ b/mercurial/HGWorkingCopy.st Sun Mar 03 23:58:51 2013 +0000
@@ -250,16 +250,17 @@
].
].
- ^ (HGCommand commit)
- workingDirectory:root pathName;
- message:message;
- files:files;
- author: author;
- date: dateSpecOrNil;
- executeOnRepository: self repository
+ ^self repository execute:
+ (HGCommand commit
+ workingDirectory:root pathName;
+ message:message;
+ files:files;
+ author: author;
+ date: dateSpecOrNil;
+ yourself).
"Created: / 01-02-2013 / 14:28:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 03-03-2013 / 20:38:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 03-03-2013 / 22:58:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
commit:message files:files date: dateSpecOrNil
@@ -274,14 +275,15 @@
merge: aChangesetOrChangesetId
"Merge given changeset into workinf copy."
- ^HGCommand merge
- workingDirectory: self path;
- revision: aChangesetOrChangesetId asHGChangesetId asString;
- tool: 'internal:dump';
- executeOnRepository: self repository
+ ^self repository execute:
+ (HGCommand merge
+ workingDirectory: self path;
+ revision: aChangesetOrChangesetId asHGChangesetId asString;
+ tool: 'internal:dump';
+ yourself)
"Created: / 14-01-2013 / 15:14:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 03-03-2013 / 20:38:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 03-03-2013 / 22:59:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
update
@@ -296,13 +298,14 @@
self changeset id = revisionOrBranch ifTrue:[ ^ self ].
- ^HGCommand update
- workingDirectory: self path;
- revision: revisionOrBranch asString;
- executeOnRepository: self repository
+ ^self repository execute:
+ (HGCommand update
+ workingDirectory: self path;
+ revision: revisionOrBranch asString;
+ yourself)
"Created: / 21-11-2012 / 00:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 03-03-2013 / 20:39:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 03-03-2013 / 23:00:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!HGWorkingCopy methodsFor:'initialization'!
@@ -373,14 +376,15 @@
states
states isNil ifTrue:[
- states := HGCommand resolve__list
- workingDirectory: wc pathName;
- executeOnRepository: wc repository.
+ states := wc repository execute:
+ (HGCommand resolve__list
+ workingDirectory: wc pathName;
+ yourself) .
].
^states
"Created: / 14-01-2013 / 16:47:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 03-03-2013 / 20:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 03-03-2013 / 23:00:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!HGWorkingCopy class methodsFor:'documentation'!