/* Input Module - DMS - Nov 2000 - by Arnaud QUENTIN */

fun load(l,ed,empty)=_SETcheck empty (atoi getInfo (getDef ed "data") "conf");
0;;

fun save (filename, n, ed,empty)=
  setDef ed "data" ("conf"::(itoa _GETcheck empty)::nil)::
    nil;
  ("action"::"show"::nil)::
  ("action"::"destroy"::nil)::
  ("eventC"::"sendmsg"::nil)::
  ("event"::"started"::nil)::
  ("zoneC"::"history"::nil)::
  ("zoneC"::"input"::nil)::nil;;

fun IniEditor(s)=
  let startEditor
      _channel nil 0 0 315 30 WN_NORMAL EDITOR_NORMAL
      s "dms/interf/input/input.dmc" nil nil
      nil nil nil
  -> ed in
  let _CRcheck _channel (getEditWin ed) 10 5 155 20 0 (_locEditor "EMPTY_ITEM" nil) -> empty in
  (
    _CBeditorSave ed (mkfun3 mkfun4 @save empty ed);
    _CBeditorLoad ed (mkfun2 mkfun3 @load empty ed);
    if s==nil then nil else openDMI ed;
  );
  0
;;