anchor.diff:      end.
   
   
  -format_flow1([Xml={Tag,Args,Data}|T], Box1, PDF) ->
  +format_flow1([Xml={Tag,_Args,_Data}|T], Box1, PDF) ->
       %% io:format("Flow Chunk:~n~p~n into box:~n~p~n", [Xml, Box1]),
       CurrentObj = get_tag_schema(atom_to_list(Tag), Box1#box.objs),
       TagMap = CurrentObj#obj.tags,
  
positive.code:       gen_server:call(Pid, {format, "../demos/test1.xml"}).
  
  format(Pid, File) ->
    gen_server:call(Pid, {format, File}).
  
  format_string(Pid, String, Root) ->
    gen_server:call(Pid, {format_string, String, Root}).
  
negative.code: %% 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} ->
  