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