anchor.diff:  meta_info(C=#class{name=CName,methods=Ms0}) ->
       Ms = lists:append(Ms0),
       HaveConstructor = lists:keymember(constructor, #method.method_type, Ms),
  -    case lists:keysearch(destructor, #method.method_type, Ms) of
  +    case keysearch(destructor, #method.method_type, Ms) of
   	false when HaveConstructor -> 
   	    Dest = #method{name = "destroy", id = next_id(func_id),
   			   method_type = destructor, params = [this(CName)]},
  
positive.code: parse_attr1([{_Id,_}|R],AttrList,Info, Res) ->
      parse_attr1(R,AttrList,Info, Res);
  parse_attr1([],Left,_, Res) ->
      {lists:reverse(Res), Left}.
  
  attr_acc(#param{name=N}, List) ->
      Name = list_to_atom(N),
  
negative.code: gen_xml() ->
  %%     {ok, Defs} = file:consult("wxapi.conf"),
      
  %%     Rel = droplast(os:cmd("wx-config --release")),
  %%     Dir = " /usr/include/wx-" ++ Rel ++ "/wx/",
  %%     Files0 = [Dir ++ File || {class, File, _, _, _} <- Defs],
  %%     Files1 = [Dir ++ File || {doxygen, File} <- Defs],
  