method insert_tag () =
      let tag = { tag = "" ; atts = [] ; tag_subs = []} in
      match C.simple_get ~width: 400 ~height: 300 Rep_messages.insert_tag
          (self#params_for_tag tag)
      with
        C.Return_ok -> self#insert_in_selected (Tag tag)
      | _ -> ()