anchor.diff:    foreach(F,zip(record_info(fields,ld),tl(tuple_to_list(LD)))),
     LD.
   
  +%% initialize the conf dialog
  +-spec conf() -> confs().
   conf() ->
     from_list([{anode, #conf{widget=conf_node,  val='',  type=atom}}, 
   	     {cookie,#conf{widget=conf_cookie,val='',  type=atom}}, 
  
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: conf_fill(_Key,#conf{widget=Widget, val=Val},_) ->
    g('Gtk_entry_set_text',[Widget,to_str(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]),
  