/* module Access - part Editor */
/* by iri : http://www.irizone.net */
/* version 1.0 - june 2004 */

typeof editWin = ObjWin;;
typeof nameSite = ObjText;;
typeof fileAccess = ObjText;;

fun save(filename, n)=
  ("action"::"start"::"start"::nil)::
  ("action"::"admin"::"admin"::nil)::
  ("action"::"!chgLogin"::nil)::
  ("actionC"::"getLast"::nil)::
  ("actionC"::"register"::nil):: 
  ("eventC"::"last"::nil)::
  ("nameSite"::(_GETtext nameSite)::nil)::
  ("listAccess"::(_GETtext fileAccess)::nil)::
  ("zone"::"Access"::nil)::
  nil;;

fun load(l)=
  _SETtext fileAccess getInfo l "listAccess";
  _SETtext nameSite getInfo l "nameSite";
  0;;
 
fun IniEditor (s)= 
 let startEditor
     _channel nil nil nil 355 55 WN_NORMAL EDITOR_NORMAL 
      s "dms/tools/access/access.dmc" nil nil
       @load @save nil
   -> ed in
   (
    set editWin = getEditWin ed;
    _CRtext _channel editWin 5 5 80 20 ET_BORDER "Name ?";
    set nameSite = _CReditLine _channel editWin 90 5 260 20 ET_AHSCROLL|ET_DOWN "test";
    _CRtext _channel editWin 5 30 80 20 ET_BORDER "File ?";
    set fileAccess = _CReditLine _channel editWin 90 30 260 20 ET_AHSCROLL|ET_DOWN "enter the path / entrer le chemin";
    if s==nil then nil else openDMI ed
   );
  0;;