method insert_list () =
      let list = { f = "" ; var = "" ; list_subs = []} in
      match C.simple_get ~width: 500 Rep_messages.insert_list
          (self#params_for_list list)
      with
        C.Return_ok -> self#insert_in_selected (List list)
      | _ -> ()