method set_on_focus_in (f : unit -> unit) =
      ignore
        (
         clipbox#view#event#connect#focus_in
         (fun _ -> f_set_active self; f (); false)
        )