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 /windowCCall_12.icl | |
| parent | gitignore (diff) | |
Initial commit
Diffstat (limited to 'windowCCall_12.icl')
| -rw-r--r-- | windowCCall_12.icl | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/windowCCall_12.icl b/windowCCall_12.icl new file mode 100644 index 0000000..e21a79e --- /dev/null +++ b/windowCCall_12.icl @@ -0,0 +1,72 @@ +implementation module windowCCall_12
+
+
+from ostoolbox import :: OSToolbox
+from ostypes import :: HWND
+from rgnCCall_12 import :: HRGN
+from pictCCall_12 import :: HDC
+import code from "cCCallWindows_121.o","cpicture_121.o"
+
+
+winInitialiseWindows:: !*OSToolbox -> *OSToolbox
+winInitialiseWindows _
+ = code
+ {
+ .inline InstallCrossCallWindows
+ ccall InstallCrossCallWindows "I-I"
+ .end
+ }
+
+winInvalidateWindow :: !HWND !*OSToolbox -> *OSToolbox
+winInvalidateWindow _ _
+ = code
+ {
+ .inline WinInvalidateWindow
+ ccall WinInvalidateWindow "II-I"
+ .end
+ }
+
+winInvalidateRect :: !HWND !(!Int,!Int,!Int,!Int) !*OSToolbox -> *OSToolbox
+winInvalidateRect hwnd (left,top, right,bottom) tb
+ = code
+ {
+ .inline WinInvalidateRect
+ ccall WinInvalidateRect "IIIIII-I"
+ .end
+ }
+
+winValidateRect :: !HWND !(!Int,!Int,!Int,!Int) !*OSToolbox -> *OSToolbox
+winValidateRect hwnd (left,top, right,bottom) tb
+ = code
+ {
+ .inline WinValidateRect
+ ccall WinValidateRect "IIIIII-I"
+ .end
+ }
+
+winValidateRgn :: !HWND !HRGN !*OSToolbox -> *OSToolbox
+winValidateRgn hwnd rgn tb
+ = code
+ {
+ .inline WinValidateRgn
+ ccall WinValidateRgn "III-I"
+ .end
+ }
+
+winGetDC :: !HWND !*OSToolbox -> (!HDC,!*OSToolbox)
+winGetDC _ _
+ = code
+ {
+ .inline WinGetDC
+ ccall WinGetDC "II-II"
+ .end
+ }
+
+winReleaseDC :: !HWND !(!HDC,!*OSToolbox) -> *OSToolbox
+winReleaseDC hwnd (hdc,tb)
+ = code
+ {
+ .inline WinReleaseDC
+ ccall WinReleaseDC "III-I"
+ .end
+ }
|