/* Stats Client - DMS - March 98 - by Sylvain HUET */

typeof stat=StatWin;;

fun _end(b)=
 _DMSdelete this;;

fun _resize(x,s)=
 let x->[win x y w h] in _SIZEwindow stat.winStatW w h x y;
 0;;

fun startStat(titles)=
 let strcatn "Stats."::(_DMSgetName this)::
  "."::(hd hd titles)::nil -> statname in
 set stat=
  let _DMSgetZone this "Stats" nil @_resize @_end ->[win x y w h] in
  if win==nil then
   iniStatW _channel DMSwin nil nil 350 190
    statname nil 0 hd tl titles 
  else
   iniStatW _channel win x y w h
    statname nil 1 hd tl titles;;

fun __stats(s)=_setStatW stat s;;

fun IniDMI(param)=
 startStat strextr param;;