anchor.diff:              case catch lists:nth(Int-$0, S#state.filters) of
                   F when is_record(F, filter) ->
                       ChildState= S#state{active_filter = F#filter.name},
  -                    case wx_object:start_link(?MODULE, [ChildState], []) of
  -                        {ok, Pid} when S#state.parent_pid =/= self() ->
  -                            unlink(Pid);
  -                        _ ->
  -                            ignore
  -                    end;
  +                    wx_object:start_link(?MODULE, [ChildState], []);
                   {'EXIT', _} ->
                       ignore
               end,
  
positive.code:         Data when is_record(Data, filter) ->
              F = Data,
              ChildState= S#state{active_filter = F#filter.name},
              case wx_object:start_link(?MODULE, [ChildState], []) of
                  {ok, Pid} when S#state.parent_pid =/= self() ->
  		    unlink(Pid);
                  _ ->
                      ignore
              end;
          {hide, Actors} ->
              send_viewer_event(S, {delete_actors, Actors});
          {show, Actors} ->
  
negative.code:             case lists:keysearch(?DEFAULT_FILTER_NAME, #filter.name, S#state.filters) of
                  {value, F} when is_record(F, filter) ->
                      ChildState= S#state{active_filter = F#filter.name},
                      wx_object:start_link(?MODULE, [ChildState], []);
                  false ->
                      ignore
              end,
  