From ba8ca608cdd674b9875d8a0f58b2e4dc520530d7 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:48:04 +0000
Subject: [PATCH] MG: fixes for 1.1

git-svn-id: trunk@1195 -
---
 lcl/interfaces/gtk/gtkproc.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 604d987463..ca48008a6e 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -389,7 +389,7 @@ begin
     if (GDIColor.Colormap <> nil) then
       gdk_colormap_free_colors(GDIColor.Colormap,@GDIColor.Color, 1);
 
-    GDIColor.Color.Pixel := -1;
+    //GDIColor.Color.Pixel := -1;
     Exclude(GDIColor.ColorFlags,cfColorAllocated);
   end;
 end;
@@ -3737,8 +3737,8 @@ end;
 Procedure FillScreenFonts(ScreenFonts : TStrings);
 var
   theFonts : PPChar;
-  Tmp,Tmp2 : AnsiString;
-  I, N,L : Integer;
+  Tmp: AnsiString;
+  I, N: Integer;
 begin
   ScreenFonts.Clear;
   {$IfNdef Win32}
@@ -3763,6 +3763,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.133  2002/10/20 21:54:04  lazarus
+  MG: fixes for 1.1
+
   Revision 1.132  2002/10/20 21:49:11  lazarus
   MG: fixes for fpc1.1