anchor.diff:  		 end,
       [ChangeSort(N) || N <- lists:seq(1,5) ++ [0]],
       timer:sleep(1000),
  -    Table = lists:nth(3, Tables),
  -    ets:insert(Table, [{N,100-N} || N <- lists:seq(1,100)]),
       Focus = #wx{event=#wxList{type=command_list_item_selected, itemIndex=2}},
       Active ! Focus,
       Activate = #wx{event=#wxList{type=command_list_item_activated, itemIndex=2}},
  
positive.code: basic(suite) -> [];
  basic(doc) -> [""];
  basic(Config) when is_list(Config) ->
      ok = observer:start(),
      Notebook = setup_whitebox_testing(),
  
  
negative.code:     0 = wxNotebook:getSelection(Notebook),
      timer:sleep(500),
      Check = fun(N, TestMore) ->
  		    TestMore andalso
  			test_page(wxNotebook:getPageText(Notebook, N),
  				  wxNotebook:getCurrentPage(Notebook)),
  		    timer:sleep(200),
  		    ok = wxNotebook:advanceSelection(Notebook)
  	    end,
      %% Just verify that we can toogle trough all pages
      [_|_] = [Check(N, false) || N <- lists:seq(1, Count)],
  