anchor.diff:  	    [Pid || {process, Pid} <- Ms]
       end.
   
  -update_grid(Grid, Opt, Ports) ->
  -    wx:batch(fun() -> update_grid2(Grid, Opt, Ports) end).
  -update_grid2(Grid, #opt{sort_key=Sort,sort_incr=Dir}, Ports) ->
  +update_grid(Grid, Sel, Opt, Ports) ->
  +    wx:batch(fun() -> update_grid2(Grid, Sel, Opt, Ports) end).
  +update_grid2(Grid, Sel, #opt{sort_key=Sort,sort_incr=Dir}, Ports) ->
       wxListCtrl:deleteAllItems(Grid),
       Update =
   	fun(#port{id = Id,
  
positive.code: 	      NewKey -> Opt0#opt{sort_key=NewKey}
  	  end,
      Ports0 = get_ports(Node),
      Ports = update_grid(Grid, Opt, Ports0),
      wxWindow:setFocus(Grid),
      {noreply, State#state{opt=Opt, ports=Ports}};
  
  
negative.code: handle_event(#wx{id=?ID_REFRESH},
  	     State = #state{node=Node, grid=Grid, opt=Opt}) ->
      Ports0 = get_ports(Node),
      Ports = update_grid(Grid, sel(State), Opt, Ports0),
      {noreply, State#state{ports=Ports}};
  
  handle_event(#wx{obj=Obj, event=#wxClose{}}, #state{open_wins=Opened} = State) ->
  