l4/pkg/ocaml/ocaml/contrib/otherlibs/labltk/builtin/builtinf_GetPixel.ml

   1 ##ifdef CAMLTK
   2
   3 let pixels units =
   4   let res =
   5     tkEval
   6      [|TkToken"winfo";
   7        TkToken"pixels";
   8        cCAMLtoTKwidget widget_any_table default_toplevel;
   9        cCAMLtoTKunits units|] in
  10   int_of_string res
  11
  12 ##else
  13
  14 let pixels units =
  15   let res =
  16     tkEval
  17      [|TkToken"winfo";
  18        TkToken"pixels";
  19        cCAMLtoTKwidget default_toplevel;
  20        cCAMLtoTKunits units|] in
  21   int_of_string res
  22
  23 ##endif