anchor.diff:  handle_event(#wx{id=?wxID_CLOSE}, State) ->
       {stop, normal, State};
   
  -handle_event(Help = #wx{id=?wxID_HELP}, State = #state{parent=Parent}) ->
  -    Parent ! Help,
  +handle_event(Help = #wx{id=?wxID_HELP}, State) ->
  +    observer ! Help,
       {noreply, State};
   
   handle_event(#wx{id=?GOTO_ENTRY, event=#wxCommand{cmdString=Str}},
  
positive.code: search(Row, Dir, Re, Table) ->
      Res = try lists:nth(Row+1, Table) of
  	      Term ->
  		  Str = io_lib:format("~w", [Term]),
  		  re:run(Str, Re)
  	  catch _:_ -> no_more
  	  end,
  
negative.code:     KeyPos = rpc:call(Node, ets, info, [TabId, keypos]),
      is_integer(KeyPos) orelse throw(node_or_table_down),
      KeyPos.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  format(Tuple) when is_tuple(Tuple) ->
      [${ |format_tuple(Tuple, 1, tuple_size(Tuple))];
  format(List) when is_list(List) ->
      format_list(List);
  format(Bin) when is_binary(Bin), byte_size(Bin) > 100 ->
      io_lib:format("<<#Bin:~w>>", [byte_size(Bin)]);
  format(Float) when is_float(Float) ->
      io_lib:format("~.3g", [Float]);
  format(Term) ->
      io_lib:format("~w", [Term]).
  
  format_tuple(Tuple, I, Max) when I < Max ->
      [format(element(I, Tuple)), $,|format_tuple(Tuple, I+1, Max)];
  format_tuple(Tuple, Max, Max) ->
      [format(element(Max, Tuple)), $}];
  format_tuple(_Tuple, 1, 0) ->
      [$}].
  
  format_list([]) -> "[]";
  format_list(List) ->
      case printable_list(List) of
  	true ->  io_lib:format("\"~ts\"", [List]);
  	false -> [$[ | make_list(List)]
      end.
  
  make_list([Last]) ->
      [format(Last), $]];
  make_list([Head|Tail]) ->
      [format(Head), $,|make_list(Tail)].
  
  %% printable_list([Char]) -> bool()
  %%  Return true if CharList is a list of printable characters, else
  %%  false.
  
  printable_list([C|Cs]) when is_integer(C), C >= $ , C =< 255 ->
      printable_list(Cs);
  printable_list([$\n|Cs]) ->
      printable_list(Cs);
  printable_list([$\r|Cs]) ->
      printable_list(Cs);
  printable_list([$\t|Cs]) ->
      printable_list(Cs);
  printable_list([$\v|Cs]) ->
      printable_list(Cs);
  printable_list([$\b|Cs]) ->
      printable_list(Cs);
  printable_list([$\f|Cs]) ->
      printable_list(Cs);
  printable_list([$\e|Cs]) ->
      printable_list(Cs);
  printable_list([]) -> true;
  printable_list(_Other) -> false.	     %Everything else is false
  