/* Module 'newsHTML' - by iri : http://www.irizone.net */
/* version 1.0 - juillet 2004 - copyleft iri           */

fun load (l)=
  let getInfo l "title" -> head in
  let getInfo l "link" -> foot in
  let getInfo l "body" -> body in
  let getInfo l "file" -> file in
  let _getpack _checkpack file -> msg in
  setData linebuild head::foot::body::file::nil msg;
  0;;

fun save (filename, n)=
  _storepack _GETtext t_news _GETtext t_file;
  ("action"::"start"::"start"::nil)::
  ("actionC"::"edit"::"edit"::nil)::
  ("actionC"::"show"::"show"::nil)::
  ("event"::"entering"::"entering"::nil)::
  ("event"::"adminChangedC"::"adminChangedC"::nil)::
  ("event"::"adminOpened"::"adminOpened"::nil)::
  ("event"::"adminRefused"::"adminRefused"::nil)::
  ("event"::"log"::"log"::nil)::
  ("eventC"::"shown"::"shown"::nil)::
  ("eventC"::"url"::nil)::
  ("title"::(_GETtext t_head)::nil)::
  ("link"::(_GETtext t_foot)::nil)::
  ("body"::(linebuild (itoa bgcolor)::(itoa text)::(itoa link)::(itoa vlink)::(itoa alink)::nil)::nil)::
  ("file"::(_GETtext t_file)::nil)::
  nil;;
  
fun IniEditor(s)=
  let startEditor
    _channel nil nil nil 430 235 WN_MENU EDITOR_NORMAL
    s "dms/commtools/newsHTML/news.dmc" nil nil
    @load @save nil
  -> ed in
  let getEditWin ed -> editWin in
  (
    iniWinAdmin _channel editWin 0 0 430 235 "News - Settings" nil nil nil 1;
    if s==nil then nil else openDMI ed
  );
0;;