From 94daa35ae09efce937b3b0805e7e4e183f465ba0 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:47:57 +0000
Subject: [PATCH] MG: fixed example

git-svn-id: trunk@1141 -
---
 lcl/interfaces/gtk/gtkobject.inc | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc
index 5757df96ec..8a45f79c1e 100644
--- a/lcl/interfaces/gtk/gtkobject.inc
+++ b/lcl/interfaces/gtk/gtkobject.inc
@@ -757,8 +757,10 @@ begin
 
   FreeGDKCursors;
 
-  gtk_object_unref(PGTKObject(FGTKToolTips));
-  FGTKToolTips := nil;
+  if FGTKToolTips<>nil then begin
+    gtk_object_unref(PGTKObject(FGTKToolTips));
+    FGTKToolTips := nil;
+  end;
    
   FreeStockItems;
   
@@ -6524,6 +6526,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.272  2002/10/30 13:20:11  lazarus
+  MG: fixed example
+
   Revision 1.271  2002/10/30 12:37:25  lazarus
   MG: mouse cursors are now allocated on demand