anchor.diff:  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,
  
positive.code:     Info = 407, %% whitebox...
      Active ! #wx{id=Info},
      timer:sleep(1000),
      ok;
  
  test_page(Title, Window) ->
  
negative.code:     timer:sleep(1000),  %% Give it time to refresh
      ok;
  
  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)]),
  