/* Ban Editor - DMS - Jan. '01 - by François BONELLE & Mikaël GRIFFOULIERES */

typeof bannerlbox = ObjText;;
typeof bandef = ObjText;;
typeof editWin = ObjWin;;

fun load (l) =
  _SETtext bandef (itoa ((atoi getInfo l "bandef")/60));
  0;;

fun save (filename, n)=
  ("action"::"start"::nil)::
  ("action"::"destroy"::nil)::
  ("action"::"banUser"::nil)::
  ("event"::"in"::nil)::
  ("event"::"destroyed"::nil)::
  ("zoneC"::"Ban"::nil)::
  ("bandef"::(itoa (atoi _GETtext bandef)*60)::nil)::nil;;

fun rflSizeEditWin (wn, blurp, w, h)=
  _SIZEtext bannerlbox w-10 20 5 0;;

fun IniEditor(s)=
  let [315 35] -> [w h] in
  let startEditor
    _channel nil nil nil w h WN_MENU EDITOR_NORMAL
    s "dms/commtools/ban/ban.dmc" nil nil
    @load @save nil
  -> ed in
  (
    set editWin = getEditWin ed;
    _CBwinSize editWin @rflSizeEditWin 0;
    set bannerlbox = _CRtext _channel editWin 5 5 175 20 ET_ALIGN_LEFT (_locEditor "BAN-enterTimeOut" nil);
    set bandef = _CReditLine _channel ed.EditorEditWin 180 5 120 20  ET_DOWN "60";
    if s==nil then nil else openDMI ed
  );
0;;