anchor.diff:      case Box1#box.bg of
   	no ->
   	    void;
  -	{yes,{R,G,B}} ->
  +	{yes,{_R,_G,_B}} ->
   	    pdf:save_state(PDF),
   	    pdf:set_fill_color_RGB(PDF,0.9,0.8,0.6),
   	    pdf:rectangle(PDF, X-5,Y-Leading-5,10+Measure*12,10+Leading, fill),
  
positive.code: -behaviour(gen_server).
  
  %% API
  -export([start_link/0, test/1, format/2, format_string/3]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
  
negative.code: %%                                      {stop, Reason, State}
  %% Description: Handling cast messages
  %%--------------------------------------------------------------------
  
  handle_cast({format_string, String, Root, To}, State) ->
    Serialised = convert_xml_to_pdf(String, Root),
    To ! Serialised;
    
  handle_cast({format, File, To}, State) ->
    Out = filename:rootname(File) ++ ".pdf",
    case file:read_file(File) of
  	{ok, Bin} ->
  	  Root = filename:dirname(File),
  	  Serialised = convert_xml_to_pdf(binary_to_list(Bin), Root),
  	  file:write_file(Out,[Serialised]),
  	  file:close(Out),
      To ! ok ;
  	Error ->
  	    To ! Error
      end.
  %%--------------------------------------------------------------------
  %% Function: handle_info(Info, State) -> {noreply, State} |
  %%                                       {noreply, State, Timeout} |
  