Changeset 7 for trunk/Units

Timestamp:

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

Author:

chronos

Message:

• Added: Commit form.

Location:

trunk/Units

Files:

• USubversion.pas (modified) (2 diffs)
• UVCS.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;
 

trunk/Units/UVCS.pas

@@ -22 +22 @@
     procedure Update; virtual;
     procedure CleanUp; virtual;
-    procedure Commit; virtual;
+    procedure Commit(Message: TStrings); virtual;
     procedure Move; virtual;
     procedure Merge; virtual;
@@ -71 +71 @@
 end;
 
-procedure TWorkingCopy.Commit;
+procedure TWorkingCopy.Commit(Message: TStrings);
 begin