anchor.diff:  	io:format("~p Got Cast ~p~n", [self(), Msg]),
   	{noreply, State}.
   
  -handle_info(#wx{event = #wxClose{}}, State = #state{win=Frame}) ->
  +handle_info(#wx{event = #wxClose{}}, #state{win = #main_window{window = Window}} = State) ->
   	io:format("~p Closing window ~n", [self()]),
  -	ok = wxFrame:setStatusText(Frame, "Closing...",[]),
  -	wxWindow:destroy(Frame),
  +	ok = wxFrame:setStatusText(Window, "Closing...",[]),
  +	wxWindow:destroy(Window),
   	{stop, normal, State};
   handle_info(#wx{event = #wxKey{type = char, uniChar = Char}}, State) ->
   	%% Send message to data buffer to update.
  
positive.code: 
  init([]) ->
  	wx:new(),
  	{Frame} = create_window(),
  	gen_server:cast(data_buffer, {subscribe, self()}),
  	{ok, #state{win = Frame}}.
  
  terminate(_Reason, _State) ->
  	io:format("~p Cleaning up~n", [self()]),
  
negative.code: -include_lib("wx/include/wx.hrl").
  
  -record(state, {win, buffer=[]}).
  -record(main_window, {window, status_bar}).
  
  %% ===================================================================
  %% API
  %% ===================================================================
  
  start_link() ->
  	gen_server:start_link({local, gui}, ?MODULE, [], [
  		%{debug, [trace]}
  		]).
  
  %% ===================================================================
  %% gen_server callbacks
  