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

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

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 62d52562fc..6e6f5d145d 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -272,14 +272,10 @@ begin
     If ClipRegion <> 0 then begin
       Region:=PGDIObject(ClipRegion);
       DCOrigin:=GetDCOffset(PDeviceContext(DC));
-      //DCOrigin:=PDeviceContext(DC)^.Origin;
-      //writeln('SelectGDIRegion DC=',HexStr(Cardinal(DC),8),
-      //  ' DCOrigin=',DCOrigin.X,',',DCOrigin.Y,' ',
-      //  ' ',PDeviceContext(DC)^.Origin.X,',',PDeviceContext(DC)^.Origin.Y);
-      if (DCOrigin.X<>0) or (DCOrigin.X<>0) then
+      if (DCOrigin.X<>0) or (DCOrigin.Y<>0) then
         gdk_region_offset(Region^.GDIRegionObject,DCOrigin.X,DCOrigin.Y);
       gdk_gc_set_clip_region(gc,  PGDIObject(ClipRegion)^.GDIRegionObject);
-      if (DCOrigin.X<>0) or (DCOrigin.X<>0) then
+      if (DCOrigin.X<>0) or (DCOrigin.Y<>0) then
         gdk_region_offset(Region^.GDIRegionObject,-DCOrigin.X,-DCOrigin.Y);
     end;
   end;
@@ -2854,6 +2850,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.98  2002/09/12 16:49:05  lazarus
+  MG: fixed SelectClipRegion
+
   Revision 1.97  2002/09/12 15:53:10  lazarus
   MG: small bugfixes