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