From 5314ea336f1acb3f95f0e129cf172587b8db1f24 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 24 Aug 2015 09:50:20 +0200
Subject: Fixing clipping mode

---
 Linux_C_12/cpicture_121.c | 3 +--
 pictCCall_12.icl          | 6 +++---
 rgnCCall_12.icl           | 8 ++++----
 3 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/Linux_C_12/cpicture_121.c b/Linux_C_12/cpicture_121.c
index cb121ee..4b08fea 100644
--- a/Linux_C_12/cpicture_121.c
+++ b/Linux_C_12/cpicture_121.c
@@ -306,8 +306,7 @@ OS WinSetPolyPoint (gint i, gint x, gint y, GdkPoint *shape, OS os)
 
 OS WinFreePolyShape (GdkPoint *shape, OS os)
 {
-    printf("WinFreePolyShape\n");
-    gdk_drawable_unref(GDK_DRAWABLE(shape));
+    printf("WinFreePolyShape is done by WinDeleteObject\n", shape);
     return (os);
 }	/* WinFreePolyShape */
 
diff --git a/pictCCall_12.icl b/pictCCall_12.icl
index 7ca03e9..27fca52 100644
--- a/pictCCall_12.icl
+++ b/pictCCall_12.icl
@@ -272,7 +272,7 @@ winAllocPolyShape _ _
 	= code
 	{	
 		.inline WinAllocPolyShape
-			ccall WinAllocPolyShape "II-II"
+			ccall WinAllocPolyShape "II-pI"
 		.end
 	}
 
@@ -281,7 +281,7 @@ winSetPolyPoint _ _ _ _ _
 	= code
 	{	
 		.inline WinSetPolyPoint
-			ccall WinSetPolyPoint "IIIII-I"
+			ccall WinSetPolyPoint "IIIpI-I"
 		.end
 	}
 
@@ -290,7 +290,7 @@ winFreePolyShape _ _
 	= code
 	{	
 		.inline WinFreePolyShape
-			ccall WinFreePolyShape "II-I"
+			ccall WinFreePolyShape "pI-I"
 		.end
 	}
 
diff --git a/rgnCCall_12.icl b/rgnCCall_12.icl
index 3c18d74..740978b 100644
--- a/rgnCCall_12.icl
+++ b/rgnCCall_12.icl
@@ -32,7 +32,7 @@ winCreatePolygonRgn _ _ _ _
 	= code
 	{	
 		.inline WinCreatePolygonRgn
-			ccall WinCreatePolygonRgn "IIII-II"
+			ccall WinCreatePolygonRgn "pIII-pI"
 		.end
 	}
 
@@ -41,7 +41,7 @@ winSetRgnToRect _ _ _ _ _ _
 	= code
 	{	
 		.inline WinSetRgnToRect
-			ccall WinSetRgnToRect "IIIIII-II"
+			ccall WinSetRgnToRect "IIIIpI-pI"
 		.end
 	}
 
@@ -50,7 +50,7 @@ winCombineRgn _ _ _ _ _
 	= code
 	{	
 		.inline WinCombineRgn
-			ccall WinCombineRgn "pppIp-pp"
+			ccall WinCombineRgn "pppII-pI"
 		.end
 	}
 
@@ -59,6 +59,6 @@ winGetRgnBox _ _
 	= code
 	{	
 		.inline WinGetRgnBox
-			ccall WinGetRgnBox "pp-ppppppp"
+			ccall WinGetRgnBox "pI-IIIIIII"
 		.end
 	}
-- 
cgit v1.2.3