anchor.diff:  	{observer_debug, Env, Notebook, Active} ->
   	    {Env, Notebook, Active}
       end.
  +
  +
  +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  +
  +%% f(F, A) ->
  +%%     lists:flatten(io_lib:format(F, A)).
  +
  +formated_timestamp() ->
  +    format_timestamp(os:timestamp()).
  +
  +format_timestamp({_N1, _N2, N3} = TS) ->
  +    {_Date, Time}   = calendar:now_to_local_time(TS),
  +    {Hour, Min, Sec} = Time,
  +    FormatTS = io_lib:format("~.2.0w:~.2.0w:~.2.0w.~.3.0w",
  +                             [Hour, Min, Sec, N3 div 1000]),  
  +    lists:flatten(FormatTS).
  +
  +print(F) ->
  +    print(F, []).
  +
  +print(F, A) ->
  +    io:format("~s ~p " ++ F ++ "~n", [formated_timestamp(), self() | A]).
  +
  
positive.code: 		    ok = wxNotebook:advanceSelection(Notebook)
  	    end,
      %% Just verify that we can toggle through all pages
      [_|_] = [Check(N, false) || N <- lists:seq(1, Count)],
      %% Cause it to resize
      Frame = get_top_level_parent(Notebook),
      {W,H} = wxWindow:getSize(Frame),
      wxWindow:setSize(Frame, W+10, H+10),
      [_|_] = [Check(N, true) || N <- lists:seq(0, Count-1)],
  
      ok = observer:stop(),
      timer:sleep(2000), %% stop is async
      ProcsAfter = processes(),
      NumProcsAfter = length(ProcsAfter),
      if NumProcsAfter=/=NumProcsBefore ->
              BeforeNotAfter = ProcsBefore -- ProcsAfter,
  	    ct:log("Before but not after:~n~p~n",
  		   [[{P,I} || {P,I} <- ProcInfoBefore,
                                lists:member(P,BeforeNotAfter)]]),
  
negative.code:        true ->
  	    ok
      end,
      ?P("basic -> done"),
      ok.
  
  test_page("Load Charts" ++ _, _Window) ->
  