method insert_mark () =
      let mark = { mark_id = "" ; mark_name = ""in
      match C.simple_get ~width: 500 Rep_messages.insert_mark
          (self#params_for_mark mark)
      with
        C.Return_ok -> self#insert_in_selected (Mark mark)
      | _ -> ()