Changeset 7 for trunk/Units/USubversion.pas

Timestamp:

May 17, 2015, 10:51:50 PM (10 years ago)

Author:

chronos

Message:

• Added: Commit form.

File:

• trunk/Units/USubversion.pas (modified) (2 diffs)

trunk/Units/USubversion.pas

@@ -19 +19 @@
     procedure Update; override;
     procedure CleanUp; override;
-    procedure Commit; override;
+    procedure Commit(Message: TStrings); override;
     procedure Move; override;
     procedure Merge; override;
@@ -56 +56 @@
 end;
 
-procedure TSubversion.Commit;
+procedure TSubversion.Commit(Message: TStrings);
 begin
-  Execute(['commit']);
+  Execute(['commit', '-m "' + Message.Text + '"']);
 end;