diff options
Diffstat (limited to 'otherlibs/labltk/builtin/dialog.ml')
| -rw-r--r-- | otherlibs/labltk/builtin/dialog.ml | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/otherlibs/labltk/builtin/dialog.ml b/otherlibs/labltk/builtin/dialog.ml index 260ec78e1..e6654d8c4 100644 --- a/otherlibs/labltk/builtin/dialog.ml +++ b/otherlibs/labltk/builtin/dialog.ml @@ -3,12 +3,12 @@ let create ?name parent title mesg bitmap def buttons = let w = Widget.new_atom "toplevel" ~parent ?name in let res = tkEval [|TkToken"tk_dialog"; - cCAMLtoTKwidget widget_any_table w; - TkToken title; - TkToken mesg; - cCAMLtoTKbitmap bitmap; - TkToken (string_of_int def); - TkTokenList (List.map (function x -> TkToken x) buttons)|] + cCAMLtoTKwidget widget_any_table w; + TkToken title; + TkToken mesg; + cCAMLtoTKbitmap bitmap; + TkToken (string_of_int def); + TkTokenList (List.map (function x -> TkToken x) buttons)|] in int_of_string res ;; @@ -16,12 +16,12 @@ let create ?name parent title mesg bitmap def buttons = let create_named parent name title mesg bitmap def buttons = let w = Widget.new_atom "toplevel" ~parent ~name in let res = tkEval [|TkToken"tk_dialog"; - cCAMLtoTKwidget widget_any_table w; - TkToken title; - TkToken mesg; - cCAMLtoTKbitmap bitmap; - TkToken (string_of_int def); - TkTokenList (List.map (function x -> TkToken x) buttons)|] + cCAMLtoTKwidget widget_any_table w; + TkToken title; + TkToken mesg; + cCAMLtoTKbitmap bitmap; + TkToken (string_of_int def); + TkTokenList (List.map (function x -> TkToken x) buttons)|] in int_of_string res ;; |