anchor.diff:  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   waiting_handshake(St = #st{gtk_port=Port}) ->
     receive
  -    {{GtkPid,handshake}, []} -> 
  +    {{GtkPid,handshake}, []} ->
         link(GtkPid),
         idle(St#st{gtk_pid=GtkPid});
  -    {Port,PortData} ->			%from the port
  +    {Port,PortData} ->                  %from the port
         waiting_handshake(handle_portdata(St, PortData));
       {'EXIT',Port,Reason} ->                 %port died, us too
         die({port_died,Reason});
  -    quit -> 
  +    quit ->
         die(quitting)
  -  after 
  +  after
       ?BORED -> waiting_handshake(bored(waiting_handshake,St))
     end.
   
  
positive.code:     {'EXIT',Port,Reason} ->
        %%port died, us too
        die({port_died,Reason});
      quit -> 
        die(quitting)
    end.
  
  waiting(St = #st{gtk_pid=GtkPid, gtk_port=Port},CmdArgs,OldReps) ->
    receive
      {{GtkPid,reply}, Ans}->			%from gtknode
        case length(Reps=OldReps++Ans)-length(CmdArgs) of
  	0 ->
  	  St#st.client_pid ! {St#st.name, {reply,Reps}},
  	  idle(St#st{client_pid = []});
  	_ ->
  	  waiting(St,CmdArgs,Reps)
        end;
      {Port,{data,PortData}} ->		%from the port
        waiting(handle_portdata(St, PortData),CmdArgs,OldReps);
      {'EXIT',Port,Reason} ->                 %port died, us too
        die({port_died,{Reason,CmdArgs}});
      quit -> 
        die(quitting)
    after 
      ?BORED -> waiting(bored(waiting,St),CmdArgs,OldReps)
    end.
  
  
negative.code:   end.
  
  initDBG() ->
    process_flag(trap_exit,true),
    register(gtknode_dbg, self()),
    Handler = spawn_link(fun initDBGH/0),
    waiting_handshake(#st{handler_pid=Handler, name=gtknode_dbg}).
  
  initDBGH() ->
    register(gtknode_dbgH, self()),
    loopDBGH().
  
  loopDBGH() ->
    receive
      {gtknode_dbg, {signal, Sig}} ->
        ?LOG({signal,Sig}),loopDBGH();
      {gtknode_dbg, {reply, Rep}} ->
  