method set_my_location (l,c) = (* prerr_endline (Printf.sprintf " l c);*) my_location <- (l,c); file#set_location (l,c); self#display_location