anchor.diff:        ]
        }].
   
  +
   init_per_suite(Config) ->
  +    ?P("init_per_suite -> entry with"
  +       "~n   Config: ~p", [Config]),
       Config.
   
  -end_per_suite(_Config) ->
  -    ok.
  -
  -init_per_testcase(_Case, Config) ->
  +end_per_suite(Config) ->
  +    ?P("end_per_suite -> entry with"
  +       "~n   Config: ~p", [Config]),
  +    ok.
  +
  +
  +init_per_testcase(Case, Config) ->
  +    ?P("init_per_testcase(~w) -> entry with"
  +       "~n   Config: ~p", [Case, Config]),
       Dog = ?t:timetrap(?default_timeout),
       [{watchdog, Dog} | Config].
   
  -end_per_testcase(_Case, Config) ->
  +end_per_testcase(Case, Config) ->
  +    ?P("end_per_testcase(~w) -> entry with"
  +       "~n   Config: ~p", [Case, Config]),
       Dog = ?config(watchdog, Config),
       ?t:timetrap_cancel(Dog),
       ok.
   
  -init_per_group(gui, Config) ->
  +
  +init_per_group(gui = Group, Config) ->
  +    ?P("init_per_group(~w) -> entry with"
  +       "~n   Config: ~p", [Group, Config]),
       try
   	case os:type() of
   	    {unix,darwin} ->
  +		?P("init_per_group(~w) -> skip", [Group]),
   		exit("Can not test on MacOSX");
   	    {unix, _} ->
  -		io:format("DISPLAY ~s~n", [os:getenv("DISPLAY")]),
  +		?P("init_per_group(~w) -> DISPLAY ~s",
  +                   [Group, os:getenv("DISPLAY")]),
   		case ct:get_config(xserver, none) of
   		    none -> ignore;
   		    Server -> os:putenv("DISPLAY", Server)
  
positive.code:     observer:stop(),
      ok.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  get_top_level_parent(Window) ->
  
negative.code: 	Config
      catch
  	_:undef ->
              ?P("init_per_group(~w) -> undef", [Group]),
  	    {skipped, "No wx compiled for this platform"};
  	C:Reason:S ->
              ?P("init_per_group(~w) -> "
                 "~n   Class:  ~p"
                 "~n   Reason: ~p"
                 "~n   Stack:  ~p", [Group, C, Reason, S]),
  	    SkipReason = io_lib:format("Start wx failed: ~p", [Reason]),
  	    {skipped, lists:flatten(SkipReason)}
      end.
  
  end_per_group(_Group, _Config) ->
      ?P("end_per_group(~w) -> entry with"
         "~n   Config: ~p", [_Group, _Config]),
      ok.
  
  
  app_file(suite) ->
      [];
  