From 15803174163fa043412f2237252f7efc803eec8a Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:46:16 +0000
Subject: [PATCH] MG: added TDeviceContextMemManager

git-svn-id: trunk@749 -
---
 lcl/interfaces/gtk/gtkobject.inc | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc
index 9bf82c9fd8..2f04b74a76 100644
--- a/lcl/interfaces/gtk/gtkobject.inc
+++ b/lcl/interfaces/gtk/gtkobject.inc
@@ -4920,7 +4920,7 @@ end;
 function TgtkObject.NewDC: PDeviceContext;
 begin
   Assert(False, Format('Trace:> [TgtkObject.NewDC]', []));
-  New(Result);
+  Result:=GtkDef.NewPDeviceContext;
   with Result^ do
   begin
     hWnd := 0;
@@ -4942,6 +4942,19 @@ begin
 //  Assert(False, Format('Trace:< [TgtkObject.NewDC] FDeviceContexts[%d] --> 0x%p', [n, Result]));
 end;
 
+{------------------------------------------------------------------------------
+  procedure TgtkObject.DisposeDC(DC: PDeviceContext);
+
+  Disposes DC
+ ------------------------------------------------------------------------------}
+procedure TgtkObject.DisposeDC(pDC: PDeviceContext);
+begin
+  if FDeviceContexts.Contains(pDC) then begin
+    FDeviceContexts.Remove(pDC);
+    GtkDef.DisposePDeviceContext(pDC);
+  end;
+end;
+
 {------------------------------------------------------------------------------
   Function: NewGDIObject
   Params:  none
@@ -5298,6 +5311,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.171  2002/08/21 14:06:40  lazarus
+  MG: added TDeviceContextMemManager
+
   Revision 1.170  2002/08/21 11:42:52  lazarus
   MG: reduced output