anchor.diff:    end.
   
   initDBG() ->
  -  process_flag(trap_exit,true), 
  +  process_flag(trap_exit,true),
     register(gtknode_dbg, self()),
     Handler = spawn_link(fun initDBGH/0),
  -  waiting_handshake(#st{handler_pid=Handler, name=gtknode_dbg}).    
  +  waiting_handshake(#st{handler_pid=Handler, name=gtknode_dbg}).
   
   initDBGH() ->
     register(gtknode_dbgH, self()),
     loopDBGH().
   
   loopDBGH() ->
  -  receive 
  +  receive
       {gtknode_dbg, {signal, Sig}} ->
         ?LOG({signal,Sig}),loopDBGH();
       {gtknode_dbg, {reply, Rep}} ->
  
positive.code: %%%    atom(quit) | EXIT signals
  %%%-------------------------------------------------------------------
  init(Client, Name) ->
    process_flag(trap_exit,true), 
    register(Name, self()),
    Client ! started,
    Port = start_gtknode(Name),
  
negative.code: %%%-------------------------------------------------------------------
  %%% runs in client process
  %%%-------------------------------------------------------------------
  start(Name) ->
    case whereis(Name) of
      undefined ->
        Self = self(),
        Pid = spawn_link(fun() -> init(Self, Name) end),
        receive
          started -> Pid;
          quit -> ok
        end;
      _ ->
        {already_started,Name}
    end.
  
  stop(Pid) when is_pid(Pid) ->
    case is_process_alive(Pid) of
      true -> Pid ! quit;
      false -> {not_running,Pid}
  