From 97244c2c91e74b4328bdf39dd5db0f123e4e1ccc Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:19 +0000
Subject: [PATCH] started typeinfo for double extended

git-svn-id: trunk@2378 -
---
 lcl/interfaces/gtk/gtkproc.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/interfaces/gtk/gtkproc.pp b/lcl/interfaces/gtk/gtkproc.pp
index 4df6d8f4d8..5965d67639 100644
--- a/lcl/interfaces/gtk/gtkproc.pp
+++ b/lcl/interfaces/gtk/gtkproc.pp
@@ -231,6 +231,9 @@ Procedure AllocGDIColor(DC : hDC; var GDIColor : TGDIColor);
 procedure SetGDIColorRef(var GDIColor : TGDIColor; NewColorRef: TColorRef);
 Procedure EnsureGCColor(DC: hDC; ColorType: TDevContextsColorType;
   IsSolidBrush: Boolean; AsBackground: Boolean);
+function CompareGDIColor(const Color1, Color2: TGDIColor): boolean;
+function CompareGDIFill(const Fill1, Fill2: TGdkFill): boolean;
+function CompareGDIBrushes(Brush1, Brush2: PGdiObject): boolean;
 
 function GetIndexAsKey(p: pointer): pointer;
 function GetRGBAsKey(p: pointer): pointer;