/* Banner Editor - DMS - feb 98 - by Sylvain HUET */
/* Rev. Aug. '98 - by Marc BARILLEY */
/* Rev. - May 00 - by Sébastien DENEUX */

/* common interface */
typeof savechg=ObjCheck;;
typeof bw=BannerW;;

fun load (l)=
  _SETcheck savechg atoi getInfo l "save";
  setBW bw getInfo l "banner";
  0;;

fun save (filename, n)=
  ("action"::"start"::"start"::nil)::
  ("action"::"destroy"::"destroy"::nil)::
  ("action"::"edit"::"edit"::nil)::
  ("event"::"entering"::"entering"::nil)::
  ("event"::"destroyed"::"destroyed"::nil)::
  ("event"::"log"::"log"::nil)::
  ("zoneC"::"Banner"::nil)::
  ("save"::(itoa _GETcheck savechg)::nil)::
  ("banner"::(getBW bw)::nil)::
  ("rule"::"1"::"Banner"::"0"::"log"::"2"::"Log"::"1"::"log"::nil)::
  ("eventC"::"bannerClick"::"bannerClick"::nil)::
  nil;;

fun IniEditor(s)=
  let startEditor
    _channel nil nil nil 780 380 WN_MENU EDITOR_NORMAL
    s "dms/interf/banner/banner.dmc" nil nil
    @load @save nil
  -> ed in
  let getEditWin ed -> editWin in
  (
     set bw = iniBW _channel editWin 0 0 780 352 "Banners" nil nil 1;
     set savechg = _CRcheck _channel editWin 5 357 300 20 0 _locEditor "360-BANNER-savedynami" nil;
     if s==nil then nil else openDMI ed
  );
0;;