diff options
Diffstat (limited to 'otherlibs/labltk/builtin/dialog.ml')
| -rw-r--r-- | otherlibs/labltk/builtin/dialog.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/otherlibs/labltk/builtin/dialog.ml b/otherlibs/labltk/builtin/dialog.ml index b2484e541..257661b5e 100644 --- a/otherlibs/labltk/builtin/dialog.ml +++ b/otherlibs/labltk/builtin/dialog.ml @@ -1,5 +1,5 @@ let create :parent :title :message :buttons ?:name - ?:bitmap[=`Predefined ""] ?:default[= -1] () = + ?(:bitmap = `Predefined "") ?(:default = -1) () = let w = Widget.new_atom "toplevel" ?:name :parent in let res = tkEval [|TkToken"tk_dialog"; cCAMLtoTKwidget w; |