equal
deleted
inserted
replaced
366 !HGCommand::commit methodsFor:'private'! |
366 !HGCommand::commit methodsFor:'private'! |
367 |
367 |
368 argumentsCommandOn:stream |
368 argumentsCommandOn:stream |
369 "Called to get command specific options" |
369 "Called to get command specific options" |
370 |
370 |
|
371 | author | |
|
372 |
371 stream nextPut:'-m'; nextPut: message. |
373 stream nextPut:'-m'; nextPut: message. |
372 files notNil ifTrue:[ |
374 files notNil ifTrue:[ |
373 stream nextPutAll: files |
375 stream nextPutAll: files |
|
376 ]. |
|
377 author := HGAuthorQuery query. |
|
378 author notNil ifTrue:[ |
|
379 stream nextPut:'--user'; nextPut: author |
374 ] |
380 ] |
375 |
381 |
376 "Created: / 12-11-2012 / 22:38:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
382 "Created: / 12-11-2012 / 22:38:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
383 "Modified: / 14-11-2012 / 19:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
377 ! |
384 ! |
378 |
385 |
379 parse:stream |
386 parse:stream |
380 "superclass GitCommand says that I am responsible to implement this method" |
387 "superclass GitCommand says that I am responsible to implement this method" |
381 |
388 |