Changeset 4 for trunk/Units

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Units

Files:

• UProject.pas (added)
• USubversion.pas (modified) (1 diff)
• UVCS.pas (modified) (2 diffs)

trunk/Units/USubversion.pas

@@ -12 +12 @@
   { TSubversion }
 
-  TSubversion = class(TVCS)
-    procedure Checkout;
-    procedure Update;
-    procedure CleanUp;
-    procedure Commit;
-    procedure Move;
-    procedure Merge;
+  TSubversion = class(TWorkingCopy)
+    procedure Checkout; override;
+    procedure Update; override;
+    procedure CleanUp; override;
+    procedure Commit; override;
+    procedure Move; override;
+    procedure Merge; override;
   end;
 

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.