anchor.diff:  %% ===================================================================
   
   create_window() ->
  -	Frame = wxFrame:new(wx:null(), 
  -			-1, % window id
  -			"erledit", % window title
  -			[{size, {600, 400}}]),
  -	
  -	wxFrame:createStatusBar(Frame),
  -	ok = wxFrame:setStatusText(Frame, ""),
  +	%% Create the window.
  +	Window = wxFrame:new(wx:null(), -1, "erledit", [{size, {600, 400}}]),
  +	StatusBar = wxFrame:createStatusBar(Window),
  +	ok = wxStatusBar:setStatusText(StatusBar, ""),
   
   	%% Subscribe to events.
  -	wxFrame:connect(Frame, close_window),
  -	wxFrame:connect(Frame, char),
  +	wxFrame:connect(Window, close_window),
  +	wxFrame:connect(Window, char),
   
  -	wxWindow:show(Frame),
  -	{Frame}.
  +	%% Show window.
  +	wxWindow:show(Window),
  +	#main_window{window = Window, status_bar = StatusBar}.
  
positive.code: 	io:format("~p Got Cast ~p~n", [self(), Msg]),
  	{noreply, State}.
  
  handle_info(#wx{event = #wxClose{}}, State = #state{win=Frame}) ->
  	io:format("~p Closing window ~n", [self()]),
  	ok = wxFrame:setStatusText(Frame, "Closing...",[]),
  	wxWindow:destroy(Frame),
  	{stop, normal, State};
  handle_info(#wx{event = #wxKey{type = char, uniChar = Char}}, State) ->
  	%% Send message to data buffer to update.
  
negative.code: 
  init([]) ->
  	wx:new(),
  	MainWindow = create_window(),
  	gen_server:cast(data_buffer, {subscribe, self()}),
  	{ok, #state{win = MainWindow}}.
  
  terminate(_Reason, _State) ->
  	io:format("~p Cleaning up~n", [self()]),
  