method set_on_focus_in (f: unit -> unit) =
      on_focus_in <- f