anchor.diff:  
   create_window() ->
   	%% Create the window.
  -	Window = wxFrame:new(wx:null(), -1, "erledit", [{size, {600, 400}}]),
  +	Window = wxFrame:new(wx:null(), -1, "erledit", [{size, {800, 600}}]),
   	StatusBar = wxFrame:createStatusBar(Window),
   	ok = wxStatusBar:setStatusText(StatusBar, ""),
   
  
positive.code: 
  draw_buffer_lines(DC, Buffer, LineHeight, SpaceWidth) ->
  	ee_buffer:foreach_line(Buffer,
  		fun(Line) -> ok = draw_buffer_line(DC, ee_buffer:get_line_contents(Line), [], 0, (ee_buffer:get_line_number(Line) - 1) * LineHeight, SpaceWidth) end
  		).
  
  draw_buffer_line(DC, [], LiteralCharsRev, XStart, Y, _) ->
  
negative.code: 	LiteralChars = lists:reverse(LiteralCharsRev),
  	{W, _} = wxDC:getTextExtent(DC, LiteralChars),
  	ok = wxDC:drawText(DC, LiteralChars, {XStart, Y}),
  	draw_buffer_line(DC, T, [], (((XStart + W - ?TEXT_AREA_START) div (4 * SpaceWidth)) + 1) * (4 * SpaceWidth) + ?TEXT_AREA_START, Y, SpaceWidth);
  draw_buffer_line(DC, [Char|T], LiteralCharsRev, XStart, Y, SpaceWidth) ->
  	draw_buffer_line(DC, T, [Char|LiteralCharsRev], XStart, Y, SpaceWidth).
  
  draw_caret(DC, Buffer, Caret, LineHeight, SpaceWidth) ->
  	#ee_buffer_coords{line_no = LineNo, line_offset = LineOffset} = ee_caret:caret_to_buffer_coords(Caret, Buffer),
  	Line = ee_buffer:get_line(Buffer, LineNo),
  	draw_caret_on_line(DC, lists:sublist(ee_buffer:get_line_contents(Line), LineOffset - 1), [], ?TEXT_AREA_START, (LineNo - 1) * LineHeight, LineHeight, SpaceWidth).
  
  draw_caret_on_line(DC, [], LiteralCharsRev, XStart, Y, H, _) ->
  	LiteralChars = lists:reverse(LiteralCharsRev),
  	{W, _} = wxDC:getTextExtent(DC, LiteralChars),
  	wxDC:setPen(DC, ?wxBLACK_PEN),
  	ok = wxDC:drawLine(DC, {XStart + W, Y}, {XStart + W, Y + H});
  draw_caret_on_line(DC, [?ASCII_TAB|T], LiteralCharsRev, XStart, Y, H, SpaceWidth) ->
  	LiteralChars = lists:reverse(LiteralCharsRev),
  	{W, _} = wxDC:getTextExtent(DC, LiteralChars),
  	draw_caret_on_line(DC, T, [], (((XStart + W - ?TEXT_AREA_START) div (4 * SpaceWidth)) + 1) * (4 * SpaceWidth) + ?TEXT_AREA_START, Y, H, SpaceWidth);
  draw_caret_on_line(DC, [Char|T], LiteralCharsRev, XStart, Y, H, SpaceWidth) ->
  	draw_caret_on_line(DC, T, [Char|LiteralCharsRev], XStart, Y, H, SpaceWidth).
  
  