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)
| _ -> ()