anchor.diff:  
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
  +sock_create(Conds) when is_list(Conds) ->
  +    sock_create(Conds, []).
  +
  +sock_create([], Acc) ->
  +    Acc;
  +sock_create([{Features, Args}|Conds], Acc) ->
  +    case sock_cond_action(Features, fun() -> sock_open(Args) end) of
  +        undefined ->
  +            sock_create(Conds, Acc);
  +        Socket ->
  +            sock_create(Conds, [Socket|Acc])
  +    end.
  +
  +sock_cond_action(Features, Action) ->
  +    sock_cond_action(Features, Action, undefined).
  +
  +sock_cond_action(Features, Action, Default) ->
  +    case sock_is_supported(Features) of
  +        true ->
  +            Action();
  +        false ->
  +            Default
  +    end.
  +
  +
  +sock_is_supported([]) ->
  +    true;
  +sock_is_supported([Feature|Features]) ->
  +    sock_is_supported(Feature) andalso sock_is_supported(Features);
  +sock_is_supported(any) ->
  +    try socket:supports() of
  +        Features when is_list(Features) ->
  +            true
  +    catch
  +        _:_:_ ->
  +            false
  +    end;
  +sock_is_supported(Feature) ->
  +    try socket:is_supported(Feature)
  +    catch
  +        _:_:_ ->
  +            false
  +    end.
  +
  +
  +sock_open({Domain, Type, Proto}) ->
  +    case socket:open(Domain, Type, Proto) of
  +        {ok, Socket} ->
  +            ?P("created socket: ~w, ~w, ~w", [Domain, Type, Proto]),
  +            Socket;
  +        {error, _} ->
  +            undefined
  +    end.
  +
  +
  +sock_close([]) ->
  +    ok;
  +sock_close([Socket|Sockets]) ->
  +    sock_close(Socket),
  +    sock_close(Sockets);
  +sock_close(undefined) ->
  +    ok;
  +sock_close(Socket) ->
  +    (catch socket:close(Socket)).
  +
  +
  +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  +
   %% f(F, A) ->
   %%     lists:flatten(io_lib:format(F, A)).
   
  
positive.code:     ok;
  
  test_page("Trace Overview" ++ _, _Window) ->
      timer:sleep(500),  %% Give it time to refresh
      Active = get_active(),
      Active ! refresh_interval,
  
negative.code:     ok;
  
  test_page("Ports" ++ _, _Window) ->
      ?P("test_page(ports) -> entry"),
      timer:sleep(500),  %% Give it time to refresh
      Active = get_active(),
      Active ! refresh_interval,
  