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 257661b5e..bd8262489 100644 --- a/otherlibs/labltk/builtin/dialog.ml +++ b/otherlibs/labltk/builtin/dialog.ml @@ -7,6 +7,6 @@ let create :parent :title :message :buttons ?:name TkToken message; cCAMLtoTKbitmap bitmap; TkToken (string_of_int default); - TkTokenList (List.map fun:(fun x -> TkToken x) buttons)|] + TkTokenList (List.map f:(fun x -> TkToken x) buttons)|] in int_of_string res |