16 lines
433 B
OCaml
16 lines
433 B
OCaml
|
(* $Id$ *)
|
||
|
|
|
||
|
|
open Tk
|
||
|
|
|
||
|
|
let enter_focus w =
|
||
|
|
bind w events:[[], `Enter] action:(`Set ([], 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:(`Set ([], fun _ -> destroy tl))
|
||
|
|
|
||
|
|
let return_invoke w :button =
|
||
|
|
bind w events:[[], `KeyPressDetail "Return"]
|
||
|
|
action:(`Set ([], fun _ -> Button.invoke button))
|