/* Synchro Editor - DMS - Aug. '98 - by Marc BARILLEY */

typeof nb=ObjText;;

fun load (l) =
  _SETtext nb getInfo l "synchro";
  0;;

fun getsync (n)=
  if n==nil || n<0
  then
    nil
  else
    ("action"::(strcat "in" itoa n)::nil)::
    ("event"::(strcat "out" itoa n)::nil)::
    getsync n-1;;

fun save (filename, n)=
  let atoi _GETtext nb -> p in
    ("action"::"now"::nil)::
    ("action"::"reset"::nil)::
    ("synchro"::(itoa p)::nil)::
    getsync (p-1);;

fun IniEditor(s)=
  let [315 30] -> [w h] in
  let startEditor
    _channel nil nil nil w h WN_MENU EDITOR_NORMAL
    s "dms/tools/synchro/synchro.dmc" nil nil
    @load @save nil
  -> ed in
  let getEditWin ed -> editWin in
  (
/* loc(    _CRtext _channel editWin 5 5 100 20 ET_ALIGN_RIGHT "Synchro Length :"; ) */
    _CRtext _channel editWin 5 5 100 20 ET_ALIGN_RIGHT (_locEditor "330-SYNCHR-synchrolen" nil);
    set nb=_CReditLine _channel editWin 110 5 w-215 20 ET_NUMBER|ET_DOWN "";

    if s==nil then nil else openDMI ed
  );
0;;