File use-getters-for-fields-in-other-classes.patch of Package ddrescueview

Overview Repositories Revisions Requests Users Attributes Meta

File use-getters-for-fields-in-other-classes.patch of Package ddrescueview (Revision ae8ddd6810610f3c5da210902f521b81)

Currently displaying revision ae8ddd6810610f3c5da210902f521b81 , Show latest

Description: Use getters for fields in other classes.
 fpc 3.2 no longer allows properties to directly access fields in other classes.
 use getters instead to work around this.
Author: Peter Michael Green <plugwash@debian.org>

--- ddrescueview-0.4~alpha3.orig/source/Parser.pas
+++ ddrescueview-0.4~alpha3/source/Parser.pas
@@ -64,6 +64,10 @@ type
     function getMap(): TMap;
     procedure postParse();
     procedure setContiguous(mode: Boolean);
+    function getCommentLines(): TStringList;
+    function getVersion(): String;
+    function getMapFileName(): String;
+    function getDomFileName(): String;
   public
     constructor Create;
     destructor Destroy; override;
@@ -75,10 +79,10 @@ type
     function hasDomFile() : Boolean;
     property rescueStatus : TRescueStatus read FRescueStatus;
     property map : TMap read getMap;
-    property CommentLines : TStringList read FMapParser.FComments;
-    property Version : String read FMapParser.FVersion;
-    property MapFileName : String read FMapParser.FFileName;
-    property DomFileName : String read FDomParser.FFileName;
+    property CommentLines : TStringList read GetCommentLines;
+    property Version : String read getVersion;
+    property MapFileName : String read getMapFileName;
+    property DomFileName : String read getDomFileName;
     property ContiguousDomain : Boolean read FContiguous write setContiguous;
   end;
 
@@ -474,4 +478,24 @@ begin
   hasFile:=Assigned(FMapStream);
 end;
 
+function TMapParser.getCommentLines(): TStringList;
+begin
+  getCommentLines:=FMapParser.FComments;
+end;
+
+function TMapParser.getVersion(): String;
+begin
+  getVersion:=FMapParser.FVersion;
+end;
+
+function TMapParser.getMapFileName(): String;
+begin
+  getMapFileName:=FMapParser.FFileName;
+end;
+
+function TMapParser.getDomFileName(): String;
+begin
+  getDomFileName:=FDomParser.FFileName;
+end;
+
 end.

Places

File use-getters-for-fields-in-other-classes.patch of Package ddrescueview (Revision ae8ddd6810610f3c5da210902f521b81)

Places