/* iriTerm Editeur ** ver. 1.0 ** nov. 02 */
/* by iri ** iri@fr.st */
/* revised by iri ** ver 1.1 ** dec.02 */

typeof editTxt=ObjText;;

fun load(l)= 
 _SETtext editTxt getInfo l "txt";
  0;; 

fun save (filename, n)=

  ("action"::"show"::nil)::
  ("action"::"destroy"::nil)::
  ("actionC"::"init"::"init"::nil)::
  ("eventC"::"sendmsg"::nil)::
  ("event"::"started"::nil)::
  ("zoneC"::"saisie"::nil)::
  ("txt"::(_GETtext editTxt)::nil)::
   nil;;

fun rflSizeEditWin (wn, blurp, w, h)=
  _SIZEtext editTxt w-115 20 110 5;;
  
fun IniEditor(s)=
  let [315 30] -> [w h] in
  let startEditor
      _channel nil nil nil w h WN_NORMAL EDITOR_NORMAL
      s "dms/interf/iriTerm/iriTerm.dmc" nil nil
      @load @save nil
  -> ed in
  let getEditWin ed -> editWin in
  (
  _CBwinSize editWin @rflSizeEditWin 0;
  _CRtext _channel editWin 5 5 30 20 ET_ALIGN_RIGHT (_locEditor "PROMPT_ITEM" nil) ; 
  set editTxt=_CReditLine _channel editWin 40 5 w-50 20 ET_DOWN|ET_AHSCROLL ""; 

    if s==nil then nil else openDMI ed;
  );
  0
;;