anchor.diff:  -export([loop/1]).				%internal export
   
   -import(lists,[foreach/2,flatten/1,keysearch/3,nth/2,reverse/1,seq/2,sort/1]).
  --import(orddict,[fold/3,update/3,map/2,fetch/2,from_list/1]).
  +-import(orddict,[new/0,store/3,is_key/2,fold/3,update/3,fetch/2,from_list/1]).
   
   -include("log.hrl").
   
   -define(LP(X), ?MODULE:loop(X)).
   -define(MARG,10).
  --define(XSIZE,2000).
  +-define(XSIZE,6000).
   -define(YSIZE,100).
   -define(WXSIZE,200).
   -define(WYSIZE,?YSIZE).
  
positive.code: -record(conf, {widget, val, type}).
  -record(ld, {conf=conf(),minute,x=?XHALF,dAreas=[],state=disc,stat_ctxt}).
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  start() -> spawn(fun()-> init() end).
  stop() -> catch (gperf ! quit),quit.
  
  init() ->
  
negative.code:   LD#ld{minute=M}.
  
  stat_change(up,LD) ->     
    Nod = to_str(conf_val(anode,LD)),
    g('Gtk_window_set_title',[window,"gperf - "++Nod]),
    statbar(Nod++" - connected",LD),
    LD#ld{state=conn};
  stat_change(down,LD) ->
    g('Gtk_window_set_title',[window,"gperf"]),
    statbar(to_str(conf_val(anode,LD))++" - disconnected",LD),
    LD#ld{state=disc}.
  
  statbar(Msg, #ld{stat_ctxt=Ctxt}) ->
  