Fixing clipping mode

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

 	}