typeof editWin = ObjWin;;
typeof txt = ObjText;;

fun save (filename, n)=
  ("action"::"start"::nil)::
  ("action"::"change"::nil)::
  ("actionC"::"choice"::nil)::
  ("eventC"::"changed"::nil)::
  ("eventC"::"chgDmsTrans"::nil)::
  ("interfSkinPath"::(_GETtext txt)::nil)::
  nil;;

fun load (l)=
  _SETtext txt getInfo l "interfSkinPath";
  0;;

fun getPath(s)=
  let substr s (strlen s)-1 1 -> last in
  if !strcmp last "/" then
    _SETtext txt strcat s "skin/"
  else
    getPath substr s 0 (strlen s)-1;;
  
fun rflOpenFile (dlg, u, file)=
  if file == nil then
    nil
  else
    getPath _PtoScol file;
  0;;
      
fun cbSelect (btn, u)=
    _DLGrflopen _DLGOpenFile _channel editWin _GETtext txt "" "dms file (*.dms)\0*.dms\0\0" @rflOpenFile 0;
    0;;
      
fun IniEditor (s)=     
 let startEditor
  _channel nil nil nil 355 30 WN_NORMAL EDITOR_NORMAL 
   s "dms/interf/colorterm/term.dmc" nil nil
   @load @save nil
  -> ed in
  (
   set editWin = getEditWin ed;
   _CBbutton _CRbutton _channel editWin 5 5 80 20 0 "Selection" @cbSelect 0;
   set txt = _CRtext _channel editWin 90 5 260 20 ET_DOWN|ET_AHSCROLL "";              
   if s==nil then nil else openDMI ed
  );
0;;