anchor.diff:  -define(ID_UNREADABLE, 405).
   -define(ID_SYSTEM_TABLES, 406).
   -define(ID_TABLE_INFO, 407).
  -
  +-define(ID_SHOW_TABLE, 408).
  + 
   -record(opt, {type=ets,
   	      sys_hidden=true,
   	      unread_hidden=true,
  
positive.code: 	R when is_integer(R) ->
  	    Table = lists:nth(Sel+1, Tabs),
  	    display_table_info(Grid, Node, Type, Table),
  	    {noreply, State}
      end;
  
  
negative.code:     end,
      {noreply, State};
  
  handle_event(#wx{event=#wxList{type=command_list_item_right_click}},
  	     State=#state{panel=Panel}) ->
  
      Menu = wxMenu:new(),
      wxMenu:append(Menu, ?ID_TABLE_INFO, "Table info"),
      wxMenu:append(Menu, ?ID_SHOW_TABLE, "Show Table Content"),
      wxWindow:popupMenu(Panel, Menu),
      wxMenu:destroy(Menu),
      {noreply, State};
  
  handle_event(#wx{event=#wxList{type=command_list_item_selected, itemIndex=Index}},
  	     State) ->
      {noreply, State#state{selected=Index}};
  