anchor.diff:  basic(suite) -> [];
   basic(doc) -> [""];
   basic(Config) when is_list(Config) ->
  +    ProcsBefore = processes(),
  +    NumProcsBefore = length(ProcsBefore),
  +
       ok = observer:start(),
       Notebook = setup_whitebox_testing(),
   
  
positive.code:     Frame = get_top_level_parent(Notebook),
      {W,H} = wxWindow:getSize(Frame),
      wxWindow:setSize(Frame, W+10, H+10),
      [_|_] = [Check(N, true) || N <- lists:seq(1, Count)],
  
      ok = observer:stop().
  
  test_page("Load Charts" ++ _, _Window) ->
      %% Just let it display some info and hopefully it doesn't crash
  
negative.code:     timer:sleep(1000),  %% Give it time to refresh
      ok;
  
  test_page(_Title = "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)]),
  
      Active = get_active(),
      Active ! refresh_interval,
      ChangeSort = fun(N) ->
  