method display_location = let (line,char) = my_location in wl_loc#set_text (Printf.sprintf "L%d-C%d" (line+1) (char+1))