ocaml/otherlibs/labltk/browser/jg_bind.ml

(* $Id$ *)

open Tk

let enter_focus w = 
  bind w events:[`Enter] action:(fun _ -> Focus.set w)

let escape_destroy ?destroy:tl w =
  let tl = match tl with Some w -> w | None -> w in
  bind w events:[`KeyPressDetail "Escape"] action:(fun _ -> destroy tl)

let return_invoke w :button =
  bind w events:[`KeyPressDetail "Return"]
    action:(fun _ -> Button.invoke button)