anchor.diff:      timer:sleep(1000),  %% Give it time to refresh
       ok;
   
  -test_page(_Title = "Table" ++ _, _Window) ->
  +test_page("Ports" ++ _, _Window) ->
  +    timer:sleep(500),  %% Give it time to refresh
  +    Active = get_active(),
  +    Active ! refresh_interval,
  +    ChangeSort = fun(N) ->
  +			 FakeEv = #wx{event=#wxList{type=command_list_col_click, col=N}},
  +			 Active ! FakeEv,
  +			 timer:sleep(200)
  +		 end,
  +    [ChangeSort(N) || N <- lists:seq(1,4) ++ [0]],
  +    Activate = #wx{event=#wxList{type=command_list_item_activated,
  +				 itemIndex=2}},
  +    Active ! Activate,
  +    timer:sleep(1000),  %% Give it time to refresh
  +    ok;
  +
  +test_page("Table" ++ _, _Window) ->
       Tables = [ets:new(list_to_atom("Test-" ++ [C]), [public]) || C <- lists:seq($A, $Z)],
       Table = lists:nth(3, Tables),
       ets:insert(Table, [{N,100-N} || N <- lists:seq(1,100)]),
  
positive.code:     Info = 407, %% whitebox...
      Active ! #wx{id=Info},
      timer:sleep(1000),
      ok;
  
  test_page(Title, Window) ->
  
negative.code: test_page("Processes" ++ _, _Window) ->
      timer:sleep(500),  %% Give it time to refresh
      Active = get_active(),
      Active ! refresh_interval,
      ChangeSort = fun(N) ->
  			 FakeEv = #wx{event=#wxList{type=command_list_col_click, col=N}},
  			 Active ! FakeEv,
  