diff options
| author | Camil Staps | 2015-07-01 17:36:37 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-07-01 17:36:37 +0200 |
| commit | 7553b7f9d4dddc2235c137d41de8ce22547bebe3 (patch) | |
| tree | 34f8fb4b36640317d728a60586424f67f9befbe7 /rgnCCall_12.icl | |
| parent | gitignore (diff) | |
Initial commit
Diffstat (limited to 'rgnCCall_12.icl')
| -rw-r--r-- | rgnCCall_12.icl | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/rgnCCall_12.icl b/rgnCCall_12.icl new file mode 100644 index 0000000..3cf9c5c --- /dev/null +++ b/rgnCCall_12.icl @@ -0,0 +1,64 @@ +implementation module rgnCCall_12
+
+
+from ostoolbox import :: OSToolbox
+
+
+:: HRGN :== Int
+
+
+// PA: CombineRgn() Styles.
+RGN_AND :== 1
+RGN_OR :== 2
+RGN_XOR :== 3
+RGN_DIFF :== 4
+RGN_COPY :== 5
+// PA: end of addition.
+
+
+/* PA: operations to create, modify and destroy regions.
+*/
+winCreateRectRgn :: !Int !Int !Int !Int !*OSToolbox -> (!HRGN,!*OSToolbox)
+winCreateRectRgn _ _ _ _ _
+ = code
+ {
+ .inline WinCreateRectRgn
+ ccall WinCreateRectRgn "IIIII-II"
+ .end
+ }
+
+winCreatePolygonRgn :: !Int !Int !Int !*OSToolbox -> (!HRGN,!*OSToolbox)
+winCreatePolygonRgn _ _ _ _
+ = code
+ {
+ .inline WinCreatePolygonRgn
+ ccall WinCreatePolygonRgn "IIII-II"
+ .end
+ }
+
+winSetRgnToRect :: !Int !Int !Int !Int !HRGN !*OSToolbox -> (!HRGN,!*OSToolbox)
+winSetRgnToRect _ _ _ _ _ _
+ = code
+ {
+ .inline WinSetRgnToRect
+ ccall WinSetRgnToRect "IIIIII-II"
+ .end
+ }
+
+winCombineRgn :: !HRGN !HRGN !HRGN !Int !*OSToolbox -> (!HRGN,!*OSToolbox)
+winCombineRgn _ _ _ _ _
+ = code
+ {
+ .inline WinCombineRgn
+ ccall WinCombineRgn "IIIII-II"
+ .end
+ }
+
+winGetRgnBox :: !HRGN !*OSToolbox -> (!Int,!Int,!Int,!Int,!Bool,!Bool,!*OSToolbox)
+winGetRgnBox _ _
+ = code
+ {
+ .inline WinGetRgnBox
+ ccall WinGetRgnBox "II-IIIIIII"
+ .end
+ }
|