anchor.diff:      [SetStyles(Style) || Style <- Styles],
       wxStyledTextCtrl:setKeyWords(Ref, 0, ?KEYWORDS).
   
  +%%%----------------------------------------------------------------------
  +%%% Helper functions
  +%%%----------------------------------------------------------------------
  +
  +addArgs(_Parent, _Sizer, Max, Max, Refs) ->
  +    lists:reverse(Refs);
  +addArgs(Parent, Sizer, I, Max, Refs) ->
  +    Ref =  wxTextCtrl:new(Parent, ?wxID_ANY),
  +    HorizSizer = wxBoxSizer:new(?wxHORIZONTAL),
  +    wxSizer:add(HorizSizer,
  +		wxStaticText:new(Parent, ?wxID_ANY, io_lib:format("Arg~p: ", [I + 1])),
  +		[{proportion, 0},
  +		 {flag, ?wxALL bor ?wxALIGN_CENTER}, {border, 10}]),
  +    wxSizer:add(HorizSizer,
  +		Ref,
  +		[{proportion, 1}, {flag, ?wxALL bor ?wxALIGN_CENTER}, {border, 10}]),
  +    wxSizer:add(Sizer,
  +		HorizSizer,
  +		[{proportion, 0}, {flag, ?wxALL bor ?wxEXPAND}, {border, 10}]),
  +    addArgs(Parent, Sizer, I + 1, Max, [Ref|Refs]).
  +
   %% Module-adding dialog
   addDialog(Parent) ->
       Caption = "Open erlang module",
  
positive.code:     unregister(loop),
      os:cmd("rm -f *.dot *.png"),
      wx:destroy().
  
  setupFrame() ->
      Frame = wxFrame:new(wx:null(), ?FRAME, "PULSE"),
  
negative.code: 	    Frame = refServer:lookup(?FRAME),
  	    addDialog(Frame),
  	    loop();
  	#wx{id = ?ANALYZE, event = #wxCommand{type = command_menu_selected}} ->
  	    analyze(),
  	    loop();
  	#wx{id = ?EXIT, event = #wxCommand{type = command_menu_selected}} ->
  	    ok;
  	%% -------------------- Catchall -------------------- %%
  	Other ->
  	    io:format("main loop unimplemented: ~p~n", [Other]),
  	    loop()
      end.
  