ocaml-tk85support.patch

   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