mutable on_focus_in = fun () -> ()