ocaml-tk8.4.patch

   1 --- ocaml-3.06/otherlibs/labltk/support/cltkImg.c.orig  2002-07-23 16:11:59.000000000 +0200
   2 +++ ocaml-3.06/otherlibs/labltk/support/cltkImg.c       2003-06-19 03:06:34.000000000 +0200
   3 @@ -99,7 +99,7 @@
   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_NoComposite(ph,&pib,Int_val(x),Int_val(y),Int_val(w),Int_val(h));
   9  }
  10
  11  CAMLprim void camltk_setimgdata_bytecode(argv,argn)
  12 --- ocaml-3.06/otherlibs/labltk/tkanim/tkAnimGIF.c.orig 2002-07-23 16:12:00.000000000 +0200
  13 +++ ocaml-3.06/otherlibs/labltk/tkanim/tkAnimGIF.c      2003-06-19 03:17:18.000000000 +0200
  14 @@ -335,7 +335,7 @@
  15                  goto error;
  16              }
  17          }
  18 -        Tk_PhotoPutBlock(photoHandle, &block, 0, 0,
  19 +        Tk_PhotoPutBlock_NoComposite(photoHandle, &block, 0, 0,
  20                           imageWidth, imageHeight);
  21  #ifdef TKANIM_DEBUG
  22      fprintf(stderr, " Retrieving result\n");