blob: 3cf9c5c76849c44407a14b333f3b4658d490bfad (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
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
}
|
