anchor.diff:  conf_fill(_Key,#conf{widget=Widget, val=Val},_) ->
     g('Gtk_entry_set_text',[Widget,to_str(Val)]).
   
  -conf_get_val(Key,LD) -> (fetch(Key,LD#ld.conf))#conf.val.
  -
  -get_gui_val(Key,LD) -> 
  -  C = fetch(Key,LD#ld.conf),
  -  get_gui_val(C#conf.widget,C#conf.type,C#conf.val).
  +conf_val(Key,LD) when is_record(LD,ld) -> 
  +  conf_val(Key,LD#ld.conf);
  +conf_val(Key,Confs) ->
  +  (fetch(Key,Confs))#conf.val.
   
   get_gui_val(Widget,Type,Val) -> 
     X = g('Gtk_entry_get_text',[Widget]),
  
positive.code:     {gperf_gtk,{signal,{memory,'activate'}}}  -> maybe_show(),?LP(LD);
      {gperf_gtk,{signal,{netload,'activate'}}} -> maybe_show(),?LP(LD);
  
      {gperf_gtk,{signal,{Darea,'expose-event'}}}->?LP(do_expose(LD,Darea));
  
      {args,['']}                      -> ?LP(LD);
      {args,[Node]}                    -> ?LP(conf(LD,anode,Node));
      {args,[Node,Proxy]}              -> NLD = conf(LD,aproxy,Proxy),
  					?LP(conf(NLD,anode,Node));
  
      {tick, Stuff}                    -> ?LP(do_tick(LD,Stuff));
      dbg                              -> ?LP(dump_ld(LD));
      X                                -> ?LP(do_unknown(LD,X))
    end.
  
  dump_ld(LD) ->
  
negative.code: -export([loop/1]).				%internal export
  
  -import(lists,[foreach/2,flatten/1,keysearch/3,nth/2,reverse/1,seq/2,sort/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,6000).
  -define(YSIZE,100).
  -define(WXSIZE,200).
  -define(WYSIZE,?YSIZE).
  