anchor.diff:      _:R -> ?log([{error,R},{stack,erlang:get_stacktrace()}])
     end.
   
  -glade_file() -> filename:join([code:priv_dir(eper),"glade","gperf.glade"]).
  +glade_file() -> 
  +  filename:join([code:priv_dir(eper),"glade","gperf.glade"]).
   
   loop(LD) ->
     receive
  -    quit                                        -> die(LD);
  -    {gperf_gtk,{signal,{window,'delete-event'}}}-> die(LD);
  -
  +    %% 2 ways to quit
  +    quit                                         -> die(LD);
  +    {gperf_gtk,{signal,{window,'delete-event'}}} -> die(LD);
  +
  +    %% the conf dialog
       {gperf_gtk,{signal,{conf_cancel,_}}} -> hide_cf(),?LP(LD);
       {gperf_gtk,{signal,{conf_ok,_}}}     -> hide_cf(),?LP(conf(LD));
   
  
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: -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).
  