l4/pkg/ocaml/ocaml/contrib/otherlibs/labltk/tkanim/cltkaniminit.c

   1 /***********************************************************************/
   2 /*                                                                     */
   3 /*                 MLTk, Tcl/Tk interface of Objective Caml            */
   4 /*                                                                     */
   5 /*    Francois Rouaix, Francois Pessaux, Jun Furuse and Pierre Weis    */
   6 /*               projet Cristal, INRIA Rocquencourt                    */
   7 /*            Jacques Garrigue, Kyoto University RIMS                  */
   8 /*                                                                     */
   9 /*  Copyright 2002 Institut National de Recherche en Informatique et   */
  10 /*  en Automatique and Kyoto University.  All rights reserved.         */
  11 /*  This file is distributed under the terms of the GNU Library        */
  12 /*  General Public License, with the special exception on linking      */
  13 /*  described in file LICENSE found in the Objective Caml source tree. */
  14 /*                                                                     */
  15 /***********************************************************************/
  16 #include <tk.h>
  17 #include <mlvalues.h>
  18 #include "camltk.h"
  19
  20 extern int Tkanim_Init(Tcl_Interp *);
  21
  22 CAMLprim value tkanim_init (rien) /* ML */
  23      value rien;
  24 {
  25   if (Tkanim_Init(cltclinterp) != TCL_OK)
  26     tk_error ("Can't initialize TkAnim");
  27   return Val_unit;
  28 }