/* pagerEdit.pkg */
/* Pager Editor v1.2 - DMS - Aug. '98 - by Marc BARILLEY */

typeof chk=ObjCheck;;

fun load (l) =
 _SETcheck chk atoi getInfo l "all";
 0;;

fun save (filename, n)=
  ("action"::"start"::"start"::nil)::
  ("action"::"kill"::"kill"::nil)::
  ("actionC"::"destroy"::"destroy"::nil)::
  ("action"::"show"::"show"::nil)::
  ("actionC"::"hide"::"hide"::nil)::
  ("action"::"register"::"register"::nil)::
  ("action"::"unregister"::"unregister"::nil)::
  ("event"::"change"::nil)::
  ("event"::"entering"::"entering"::nil)::
  ("eventC"::"destroyed"::"destroyed"::nil)::
  ("eventC"::"shown"::"shown"::nil)::
  ("eventC"::"hidden"::"hidden"::nil)::
  ("eventC"::"in"::"in"::nil)::
  ("zoneC"::"number"::nil)::
  ("all"::(itoa _GETcheck chk)::nil)::
  nil;;

fun IniEditor (s)=
 let startEditor
      _channel nil nil nil 315 30 WN_NORMAL EDITOR_NORMAL
      s "dms/admin/connections/connections.dmc" nil nil
      @load @save nil
 -> ed in
 (
/* loc(	  set chk=_CRcheck _channel ed.EditorEditWin 5 5 100 20 0 "Count yourself"; ) */
	  set chk=_CRcheck _channel ed.EditorEditWin 5 5 300 20 0 (_locEditor "330-CONNEC-countyours" nil);
    if s==nil then nil else openDMI ed
 );
0;;