diff options
Diffstat (limited to 'otherlibs/labltk/browser/jg_entry.ml')
| -rw-r--r-- | otherlibs/labltk/browser/jg_entry.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/otherlibs/labltk/browser/jg_entry.ml b/otherlibs/labltk/browser/jg_entry.ml index 04cd454bd..c662bed85 100644 --- a/otherlibs/labltk/browser/jg_entry.ml +++ b/otherlibs/labltk/browser/jg_entry.ml @@ -15,12 +15,12 @@ open Tk -let create ?:command ?:width ?:textvariable parent = - let ew = Entry.create parent ?:width ?:textvariable in +let create ?command ?width ?textvariable parent = + let ew = Entry.create parent ?width ?textvariable in Jg_bind.enter_focus ew; begin match command with Some command -> - bind ew events:[`KeyPressDetail "Return"] - action:(fun _ -> command (Entry.get ew)) + bind ew ~events:[`KeyPressDetail "Return"] + ~action:(fun _ -> command (Entry.get ew)) | None -> () end; ew |