# File lib/xml_parser.rb, line 22
  def self.parse_file(document) 
    file = File.new(document)
    doc = REXML::Document.new file
    doc.elements.each("TypeInformation/ClassInfo") do |element|
      class_name = element.attributes["Name"]

      #-- Generates a new class
      new_class = Flex.generate_new_class(class_name, element.attributes["Extends"])

      #-- If the component supports tabular data, methods are created
      if(element.attributes["SupportsTabularData"] == "true")
        add_tabular_method(new_class)
      end
    
      #-- For all events a relating method is created
      events = REXML::Document.new element.to_s
      events.elements.each("ClassInfo/Events/Event") do |event|
        add_event(new_class, event)
      end
    end
  end