From 84ac43fd4519dbac5a452f09dfad89c15130b77e Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 4 Jul 2008 09:42:05 +0000
Subject: [PATCH] fpgui widget set: fixed compilation with fpc 2.3.1

git-svn-id: trunk@15671 -
---
 lcl/interfaces/fpgui/fpguiwsprivate.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/fpgui/fpguiwsprivate.pp b/lcl/interfaces/fpgui/fpguiwsprivate.pp
index d74c7ac64e..719a970b47 100644
--- a/lcl/interfaces/fpgui/fpguiwsprivate.pp
+++ b/lcl/interfaces/fpgui/fpguiwsprivate.pp
@@ -328,7 +328,7 @@ end;
 
 destructor TFPGUIPrivateWidget.Destroy;
 begin
-  if (Widget <> nil) then FreeAndNil(Widget);
+  if (FWidget <> nil) then FreeAndNil(FWidget);
 
   inherited Destroy;
 end;