anchor.diff:  	Config
       catch
   	_:undef ->
  +            ?P("init_per_group(~w) -> undef", [Group]),
   	    {skipped, "No wx compiled for this platform"};
  -	_:Reason ->
  +	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(_, _) ->
  -    ok.
  +
  +end_per_group(_Group, _Config) ->
  +    ?P("end_per_group(~w) -> entry with"
  +       "~n   Config: ~p", [_Group, _Config]),
  +    ok.
  +
   
   app_file(suite) ->
       [];
  
positive.code: 
  %% Default timetrap timeout (set in init_per_testcase)
  -define(default_timeout, ?t:minutes(2)).
  
  suite() -> [{timetrap, {minutes, 5}},
              {ct_hooks,[ts_install_cth]}].
  
negative.code:       ]
       }].
  
  
  init_per_suite(Config) ->
      ?P("init_per_suite -> entry with"
         "~n   Config: ~p", [Config]),
      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) ->
      ?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 = 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, _} ->
  		?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)
  