anchor.diff:  -behaviour(gen_server).
   
   %% API
  --export([start_link/0, test/1, format/2, format_string/3]).
  +-export([start_link/0, test/1, format/2, format_string/3, dispatch/3, dispatch_string/4]).
   
   %% gen_server callbacks
   -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
  
positive.code: convert_xml_to_pdf(XML, Root) ->
      V = erlguten_xml_lite:parse_file(XML),  %% convert the XML into a parse tree
      case V of
  	{error, W} ->
  	    io:format("Error in source:~p~n",[V]),
  	    exit(1);
  	[{pi,_},{xml,{document,_, Flows}}] ->
  
negative.code:     case Box1#box.bg of
  	no ->
  	    void;
  	{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),
  