From 0f385033a70130edb61a0d2ddb5569b94d8b9c20 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 26 Jun 2016 00:54:19 +0200
Subject: [PATCH] rather use auto class d/ctor

---
 src/ce_libmaneditor.pas | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/src/ce_libmaneditor.pas b/src/ce_libmaneditor.pas
index 86660afa..eaa579dc 100644
--- a/src/ce_libmaneditor.pas
+++ b/src/ce_libmaneditor.pas
@@ -21,8 +21,8 @@ type
     procedure getList(sender: TObject);
   public
     class function showAndWait(out value: string): TModalResult; static;
-    class procedure classCtor;
-    class procedure classDtor;
+    class constructor classCtor;
+    class destructor classDtor;
     constructor Create(TheOwner: TComponent); override;
     property text: string read getText;
   end;
@@ -180,12 +180,12 @@ begin
   itm.Selected := True;
 end;
 
-class procedure TDubPackageQueryForm.classCtor;
+class constructor TDubPackageQueryForm.classCtor;
 begin
   fList := TStringList.Create;
 end;
 
-class procedure TDubPackageQueryForm.classDtor;
+class destructor TDubPackageQueryForm.classDtor;
 begin
   fList.Free;
 end;
@@ -797,8 +797,4 @@ begin
   end;
 end;
 
-initialization
-  TDubPackageQueryForm.classCtor;
-finalization
-  TDubPackageQueryForm.classDtor;
 end.