ocaml/otherlibs/labltk/builtin/builtinf_GetPixel.ml

let pixels units =
  let res =
    tkEval
     [|TkToken"winfo";
       TkToken"pixels";
       cCAMLtoTKwidget default_toplevel;
       cCAMLtoTKunits units|] in 
  int_of_string res
drastic clean up of the code. slice .cmo size by 2! git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2692 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 1999-12-16 00:37:38 -08:00			`let pixels units =`
Incorporation des améliorations de la dernière version de ocamltk41, en particulier gestion des alertes du compilateur Caml. git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2819 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 2000-02-15 02:10:26 -08:00			`let res =`
			`tkEval`
			`[\|TkToken"winfo";`
			`TkToken"pixels";`
			`cCAMLtoTKwidget default_toplevel;`
			`cCAMLtoTKunits units\|] in`
			`int_of_string res`