/* interface pour report de bugs / suggestions */
/* par iri - http://www.irizone.net - juin 2004 */

typeof folder = ObjText;;
typeof editWin = ObjWin;;

fun save (filename, n)=
  ("action"::"start"::"start"::nil)::
  ("action"::"adminS"::nil)::
  ("folder"::(_GETtext folder)::nil)::
  ("zoneC"::"debug"::nil)::
  nil;;
  
fun load (l)=
  _SETtext folder getInfo l "folder";
  0;;

fun IniEditor (s)= 
 let startEditor
     _channel nil nil nil 355 30 WN_NORMAL EDITOR_NORMAL 
      s "dms/dev/debug/debug.dmc" nil nil
       @load @save nil
   -> ed in
   (
      set editWin = getEditWin ed;
      _CRtext _channel editWin 5 5 80 20 ET_UPBORDER "folder";
      set folder = _CReditLine _channel editWin 90 5 260 20 ET_DOWN|ET_AHSCROLL "";
      if s==nil then nil else openDMI ed
  );
0;;