Sub Main()
	ListSynoOuvert();
End Sub

Sub ListSynoOuvert()
DIM Count As Integer;
DIM i AS INTEGER;
DIM CPATH as Str;

	Window("GETCOLLECTION","CTX1");

	'R‚cupŠre le nombre de synoptique actuellement ouvert
	Count = XMLPATH("COUNT", "CTX1","Mimics/Mimic");
	Print("Le nombre de synoptiques ouverts : ",Count);
	
	'Liste les synoptiques ouverts
	for (i=1; i<=Count;i++)
		print("*******************************");
		'R‚cup‚ration du nom du synoptique
		CPATH=FORMAT("Mimics/Mimic[%i]/Name[1]",i);
		print("Mimic name - ",XMLPATH("GETSTR","CTX1",CPATH));
 
		'R‚cup‚ration de la branche du synoptique
		CPATH=FORMAT("Mimics/Mimic[%i]/Branch[1]",i);
		print("Branch - ",XMLPATH("GETSTR","CTX1",CPATH));
 
		'R‚cup‚ration de la position gauche du synoptique
		CPATH=FORMAT("Mimics/Mimic[%i]/Left[1]",i);
		print("Left - ",XMLPATH("GETSTR","CTX1",CPATH));
 
		'R‚cup‚ration de la position Haut du synoptique
		CPATH=FORMAT("Mimics/Mimic[%i]/Top[1]",i);
		print("Top - ",XMLPATH("GETSTR","CTX1",CPATH));

		'R‚cup‚ration de la hauteur du synoptique
		CPATH=FORMAT("Mimics/Mimic[%i]/Height[1]",i);
		print("Height - ",XMLPATH("GETSTR","CTX1",CPATH));
 
		'R‚cup‚ration de la largeur du synoptique
		CPATH=FORMAT("Mimics/Mimic[%i]/Width[1]",i);
		print("Width - ",XMLPATH("GETSTR","CTX1",CPATH));

 		'R‚cup‚ration du nom du synoptique Parent
		CPATH=FORMAT("Mimics/Mimic[%i]/ParentMimicName[1]",i);
		print("ParentMimicName- ",XMLPATH("GETSTR","CTX1",CPATH));

		'R‚cup‚ration de la branche du synoptique Parent
		CPATH=FORMAT("Mimics/Mimic[%i]/ParentMimicBranch[1]",i);
		print("ParentMimicBranch - ",XMLPATH("GETSTR","CTX1",CPATH));

		'R‚cup‚ration du jeu de reference
		CPATH=FORMAT("Mimics/Mimic[%i]/Refset[1]",i);
		print("Refset - ",XMLPATH("GETSTR","CTX1",CPATH));

		'R‚cup‚ration de la r‚gion d'ouverture
		CPATH=FORMAT("Mimics/Mimic[%i]/Region[1]",i);
		print("Region - ",XMLPATH("GETSTR","CTX1",CPATH));

		'R‚cup‚ration info popup
		CPATH=FORMAT("Mimics/Mimic[%i]/Popup[1]",i);
		print("Popup - ",XMLPATH("GETSTR","CTX1",CPATH));

		'R‚cup‚ration info cache
		CPATH=FORMAT("Mimics/Mimic[%i]/cache[1]",i);
		print("cache - ",XMLPATH("GETSTR","CTX1",CPATH));

		'R‚cup‚ration index
		CPATH=FORMAT("Mimics/Mimic[%i]/index[1]",i);
		print("index - ",XMLPATH("GETSTR","CTX1",CPATH));

	Next

	




End Sub
