--- a/mercurial/HGCommand.st Thu Nov 15 10:26:08 2012 +0000
+++ b/mercurial/HGCommand.st Thu Nov 15 10:26:14 2012 +0000
@@ -42,8 +42,15 @@
privateIn:HGCommand
!
+HGCommand subclass:#pull
+ instanceVariableNames:'url'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:HGCommand
+!
+
HGCommand subclass:#push
- instanceVariableNames:'remote refspec'
+ instanceVariableNames:'url'
classVariableNames:''
poolDictionaries:''
privateIn:HGCommand
@@ -577,22 +584,25 @@
"Modified: / 15-11-2012 / 00:38:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-!HGCommand::push methodsFor:'accessing'!
+!HGCommand::pull methodsFor:'private'!
+
+argumentsCommandOn:stream
+ "Called to get command specific options"
-refspec
- ^ refspec
+ url notNil ifTrue:[
+ stream nextPut: url.
+ ].
+
+ "Created: / 30-09-2012 / 23:44:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 15-11-2012 / 09:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-refspec:something
- refspec := something.
-!
+parse:stream
+ "superclass GitCommand says that I am responsible to implement this method"
-remote
- ^ remote
-!
+ ^ nil
-remote:something
- remote := something.
+ "Modified: / 15-11-2012 / 09:53:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!HGCommand::push methodsFor:'private'!
@@ -600,20 +610,20 @@
argumentsCommandOn:stream
"Called to get command specific options"
- stream nextPut: remote.
- refspec notNil ifTrue:[
- stream nextPut: refspec.
- ]
+ url notNil ifTrue:[
+ stream nextPut: url.
+ ].
"Created: / 30-09-2012 / 23:44:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 15-11-2012 / 09:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
parse:stream
"superclass GitCommand says that I am responsible to implement this method"
- ^ ''
+ ^ nil
- "Modified: / 01-10-2012 / 00:11:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 15-11-2012 / 09:53:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!HGCommand::remove methodsFor:'accessing'!
@@ -683,7 +693,7 @@
!
version_SVN
- ^ '$Id:: $'
+ ^ '§Id:: §'
! !
HGCommand initialize!