24 ! !

    25 

    26 !HGWorkingCopy methodsFor:'actions'!

    27 

    28 commit: message

    29     "Commits all uncommited changes with given message"

    30 

    31     ^self commit: message files: nil

    32 

    33     "Created: / 12-11-2012 / 22:35:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    34 !

    35 

    36 commit: message files: files

    37     "Commit given files with given message. If files

    38      is nil, all tracked modified files are commited"

    39 

    40     ^HGCommand commit

    41         workingDirectory: root pathName;

    42         message: message;

    43         files: files;

    44         execute

    45 

    46     "Created: / 12-11-2012 / 22:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"