let xml_of_text_input t =
  Element ("textInput", [],
           [
             Element("title",[],[PCData t.ti_title]) ;
             Element("description",[],[PCData t.ti_desc]) ;
             Element("name",[],[PCData t.ti_name]) ;
             Element("link",[],[PCData t.ti_link]) ;
           ]
          )