method set_on_focus_in (f: unit -> unit) = on_focus_in <- (fun _ -> f_set_active self; self#set_location my_location; f (); )