anchor.diff:        %%from gtknode
         HandPid ! {St#st.name, {signal, Sig}},
         idle(St);
  -    {Pid,CmdArgs} when pid(Pid) ->
  +    {Pid,CmdArgs} when is_pid(Pid) ->
         %%from client
         GtkPid ! CmdArgs,
         waiting(St#st{client_pid = Pid},CmdArgs,[]);
  
positive.code: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  waiting_handshake(St = #st{gtk_port=Port}) ->
    receive
      {{GtkPid,handshake}, []} -> 
        link(GtkPid),
        idle(St#st{gtk_pid=GtkPid});
      {Port,PortData} ->			%from the port
        waiting_handshake(handle_portdata(St, PortData));
      {'EXIT',Port,Reason} ->                 %port died, us too
        die({port_died,Reason});
      quit -> 
        die(quitting)
    after 
      ?BORED -> waiting_handshake(bored(waiting_handshake,St))
    end.
  
  
negative.code: %%%-------------------------------------------------------------------
  %%% File    : gtk_node.erl
  %%% Author  : Mats Cronqvist <qthmacr@mwux005>
  %%% Description :
  %%%
  %%% Created : 22 Nov 2004 by Mats Cronqvist <qthmacr@mwux005>
  %%%-------------------------------------------------------------------
  