XMLElement subclass: #AAAName
	instanceVariableNames: ''
	classVariableNames: ''
	package: 'AAA'.

xml := '<?xml version="1.0" encoding="iso-8859-1"?>
<FILMS>
 <FILM annee="1958">
   <TITRE>Vertigo</TITRE>
   <ROLES>
     <ROLE>
       <PRENOM>James</PRENOM>
       <NOM>Stewart</NOM>
       <INTITULE>John Ferguson</INTITULE>
     </ROLE>
     <ROLE>
       <PRENOM>Kim</PRENOM>
       <NOM>Novak</NOM>
       <INTITULE>Madeleine Elster</INTITULE>
     </ROLE>
   </ROLES>
 </FILM>
</FILMS>'.
factory := XMLPluggableElementFactory new handleElement: 'NOM' withClass: AAAName.
document :=
		(XMLDOMParser on: xml)
			nodeFactory: factory;
			parseDocument