From c9e914e4f5a51d1b712755507ca6ae1b571428b6 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Tue, 21 Aug 2012 22:32:03 +0100
Subject: memo: removes unnecessary code. The Memo field was just a reference.

This also fixes a strange "lost pointer reference" issue under Windows. Not sure what
FPC is doing there.
---
 src/gui/fpg_memo.pas | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas
index 60bade4d..c96555c1 100644
--- a/src/gui/fpg_memo.pas
+++ b/src/gui/fpg_memo.pas
@@ -176,10 +176,9 @@ type
   // custom stringlist that will notify the memo of item changes
   TfpgMemoStrings = class(TStringList)
   protected
-    Memo: TfpgMemo;
+    Memo: TfpgMemo;  { this is just a reference }
   public
     constructor Create(AMemo: TfpgMemo); reintroduce;
-    destructor  Destroy; override;
     function    Add(const s: String): Integer; override;
     procedure   Clear; override;
     procedure   Delete(Index: Integer); override;
@@ -194,12 +193,6 @@ begin
   Memo := AMemo;
 end;
 
-destructor TfpgMemoStrings.Destroy;
-begin
-  Memo := nil;
-  inherited Destroy;
-end;
-
 function TfpgMemoStrings.Add(const s: String): Integer;
 begin
   Memo.BeginUpdate;
-- 
cgit v1.2.3-70-g09d2