diff options
| author | Camil Staps | 2015-08-10 11:18:45 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-08-10 11:18:45 +0200 |
| commit | e054c9a591a344e05b0cedaf285dc8e0a3aed7a0 (patch) | |
| tree | 084b9d1b747dff30d61e1b15f8bb8cac0686b4df /pictCCall_12.icl | |
| parent | Fix email markdown (diff) | |
Fixed winDonePicture
Diffstat (limited to 'pictCCall_12.icl')
| -rw-r--r-- | pictCCall_12.icl | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/pictCCall_12.icl b/pictCCall_12.icl index b235b70..8e8163e 100644 --- a/pictCCall_12.icl +++ b/pictCCall_12.icl @@ -749,15 +749,14 @@ winDeleteObject _ _ .end
}
-
-winDonePicture :: !PIC -> (!Int,!Int,!RGBcolor,!RGBcolor,!Pt,!Fnt,!PIC)
+winDonePicture :: !PIC -> !PIC
winDonePicture _
- = code
- {
- .inline WinDonePicture
- ccall WinDonePicture "II-IIIIIIIIIISIIII"
- .end
- }
+ = code
+ {
+ .inline WinDonePicture
+ ccall WinDonePicture "pp-pp"
+ .end
+ }
winInitPicture :: !Int !Int !RGBcolor !RGBcolor !Pt !Fnt !Pt !PIC -> PIC
winInitPicture _ _ _ _ _ _ _ _
|