Changeset 4 for trunk/Units/UVCS.pas

Timestamp:

Sep 1, 2014, 7:10:03 PM (10 years ago)

Author:

chronos

Message:

• Added: Concept of project and open project as directory.

File:

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

trunk/Units/UVCS.pas

@@ -9 +9 @@
 
 type
+
+  { TWorkingCopy }
+
   TWorkingCopy = class
-    Path: string;
+  private
+    FPath: string;
+    procedure SetPath(AValue: string);
+  public
+    procedure Checkout; virtual;
+    procedure Update; virtual;
+    procedure CleanUp; virtual;
+    procedure Commit; virtual;
+    procedure Move; virtual;
+    procedure Merge; virtual;
+    procedure Refresh; virtual;
+    property Path: string read FPath write SetPath;
   end;
 
@@ -17 +31 @@
   end;
 
+
 implementation
+
+
+{ TWorkingCopy }
+
+procedure TWorkingCopy.SetPath(AValue: string);
+begin
+  if FPath=AValue then Exit;
+  FPath := AValue;
+  Refresh;
+end;
+
+procedure TWorkingCopy.Checkout;
+begin
+
+end;
+
+procedure TWorkingCopy.Update;
+begin
+
+end;
+
+procedure TWorkingCopy.CleanUp;
+begin
+
+end;
+
+procedure TWorkingCopy.Commit;
+begin
+
+end;
+
+procedure TWorkingCopy.Move;
+begin
+
+end;
+
+procedure TWorkingCopy.Merge;
+begin
+
+end;
+
+procedure TWorkingCopy.Refresh;
+begin
+
+end;
 
 end.