/* Meeting Point Editor v1.0 - DMS - Mar. '98 - by Marc BARILLEY */
/* Rev. 1.1 - Aug. '98 - by Marc BARILLEY */

/* SCS editor */
fun save (filename, n)=
  ("action"::"start"::"start"::nil)::
  ("action"::"destroy"::"destroy"::nil)::
  ("action"::"!changeLogin"::"changeLogin"::nil)::
  ("action"::"show"::"show"::nil)::
  ("action"::"hide"::"hide"::nil)::
  ("event"::"entering"::"entering"::nil)::
  ("event"::"destroyed"::"destroyed"::nil)::
  ("event"::"contact"::nil)::
  ("event"::"select"::"select"::nil)::
  ("eventC"::"shown"::"shown"::nil)::
  ("eventC"::"hidden"::"hidden"::nil)::
  ("zoneC"::"meetingPoint"::nil)::
  ("zoneC"::"cardbook"::nil)::
  ("zoneC"::"button"::nil)::
  nil;;

fun IniEditor(s)=
  let startEditor
    _channel nil nil nil 315 0 WN_MENU EDITOR_NORMAL
    s "dms/interf/meetingpoint/meetingpoint.dmc" nil nil
    nil @save nil
  -> ed in
  if s==nil then nil else openDMI ed;
0;;