]>
Commit | Line | Data |
---|---|---|
93ce37a6 MM |
1 | --- ocaml-3.08.3/otherlibs/labltk/support/cltkImg.c.orig 2005-05-02 17:37:05.485370160 +0000 |
2 | +++ ocaml-3.08.3/otherlibs/labltk/support/cltkImg.c 2005-05-02 17:45:33.717107192 +0000 | |
3 | @@ -98,7 +98,11 @@ | |
4 | pib.offset[0] = 0; | |
5 | pib.offset[1] = 1; | |
6 | pib.offset[2] = 2; | |
7 | - Tk_PhotoPutBlock(ph,&pib,Int_val(x),Int_val(y),Int_val(w),Int_val(h) | |
8 | + Tk_PhotoPutBlock( | |
9 | +#if (TK_MAJOR_VERSION == 8 && TK_MINOR_VERSION >= 5 || TK_MAJOR_VERSION > 8) | |
10 | + NULL, | |
11 | +#endif | |
12 | + ph,&pib,Int_val(x),Int_val(y),Int_val(w),Int_val(h) | |
13 | #if (TK_MAJOR_VERSION == 8 && TK_MINOR_VERSION >= 4 || TK_MAJOR_VERSION > 8) | |
14 | , TK_PHOTO_COMPOSITE_SET | |
15 | #endif | |
16 | --- ocaml-3.08.3/otherlibs/labltk/tkanim/tkAnimGIF.c.orig 2005-05-02 17:53:48.000000000 +0000 | |
17 | +++ ocaml-3.08.3/otherlibs/labltk/tkanim/tkAnimGIF.c 2005-05-02 17:53:33.000000000 +0000 | |
18 | @@ -334,7 +334,11 @@ | |
19 | goto error; | |
20 | } | |
21 | } | |
22 | - Tk_PhotoPutBlock(photoHandle, &block, 0, 0, imageWidth, imageHeight | |
23 | + Tk_PhotoPutBlock( | |
24 | +#if (TK_MAJOR_VERSION == 8 && TK_MINOR_VERSION >= 5 || TK_MAJOR_VERSION > 8) | |
25 | + NULL, | |
26 | +#endif | |
27 | + photoHandle, &block, 0, 0, imageWidth, imageHeight | |
28 | #if (TK_MAJOR_VERSION == 8 && TK_MINOR_VERSION >= 4 || TK_MAJOR_VERSION > 8) | |
29 | , TK_PHOTO_COMPOSITE_SET | |
30 | #endif |