24 lines
419 B
OCaml
24 lines
419 B
OCaml
##ifdef CAMLTK
|
|
|
|
let pixels units =
|
|
let res =
|
|
tkEval
|
|
[|TkToken"winfo";
|
|
TkToken"pixels";
|
|
cCAMLtoTKwidget widget_any_table default_toplevel;
|
|
cCAMLtoTKunits units|] in
|
|
int_of_string res
|
|
|
|
##else
|
|
|
|
let pixels units =
|
|
let res =
|
|
tkEval
|
|
[|TkToken"winfo";
|
|
TkToken"pixels";
|
|
cCAMLtoTKwidget default_toplevel;
|
|
cCAMLtoTKunits units|] in
|
|
int_of_string res
|
|
|
|
##endif
|