/* Timer Editor - DMS - apr 98 - by Marc Barilley */
/* Rev. 1.1 - Sep. '98 - by Marc BARILLEY */

typeof freq=ObjText;;

/* SCS editor */
fun load (l) =
  _SETtext freq getInfo l "period";
  0;;

fun save (filename, n)=
  ("action"::"start"::"start"::nil)::
  ("actionC"::"destroy"::"destroy"::nil)::
  ("actionC"::"top"::nil)::
  ("actionC"::"period"::nil)::
  ("eventC"::"top"::nil)::
  ("period"::(_GETtext freq)::nil)::
  nil;;

fun rflSizeEditWin (wn, blurp, w, h)=
  _SIZEtext freq w-115 20 110 5;;

fun IniEditor(s)=
  let [315 30] -> [w h] in
  let startEditor
    _channel nil nil nil w h WN_MENU EDITOR_NORMAL
    s "dms/tools/timer/timer.dmc" nil nil
    @load @save nil
  -> ed in
  let getEditWin ed -> editWin in
  (
    _CBwinSize editWin @rflSizeEditWin 0;
  
/* loc(    _CRtext _channel editWin 5 5 100 20 ET_ALIGN_RIGHT "Period (ms):"; ) */
    _CRtext _channel editWin 5 5 100 20 ET_ALIGN_RIGHT _locEditor "330-TIMERE-period(ms)" nil;
    set freq=_CReditLine _channel editWin 110 5 w-115 20 ET_NUMBER|ET_DOWN|ET_AHSCROLL "";
    if s==nil then nil else openDMI ed
  );
0;;