diff options
Diffstat (limited to 'otherlibs/labltk/builtin/dialog.ml')
| -rw-r--r-- | otherlibs/labltk/builtin/dialog.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/otherlibs/labltk/builtin/dialog.ml b/otherlibs/labltk/builtin/dialog.ml new file mode 100644 index 000000000..cfde292af --- /dev/null +++ b/otherlibs/labltk/builtin/dialog.ml @@ -0,0 +1,12 @@ +let create :parent :title :message :buttons ?:name + ?:bitmap{=`Predefined ""} ?:default{= -1} () = + let w = Widget.new_atom "toplevel" ?:name :parent in + let res = tkEval [|TkToken"tk_dialog"; + cCAMLtoTKwidget w; + TkToken title; + TkToken message; + cCAMLtoTKbitmap bitmap; + TkToken (string_of_int default); + TkTokenList (List.map fun:(fun x -> TkToken x) buttons)|] + in + int_of_string res |