var IgnorarTest = false;

function listarURLs (elmX) {
if (Test('Traversal','2.0')==false) return false;
var elmDOC = document.documentElement;
var elmDIV = document.getElementById('DivEj');
var elmUL = document.createElement('ul');
var elmLI;
var elmText;
var Nodo;
var Filtro = {
	acceptNode : function(n) {
		if (n.nodeName == "A" && n.hasAttribute("href")) {
			return NodeFilter.FILTER_ACCEPT;
			} 
		else return NodeFilter.FILTER_SKIP;
		}
	}
var Tipos = NodeFilter.SHOW_ELEMENT;
var proArbol = document.createTreeWalker(elmDOC, Tipos, Filtro, false);
while ((Nodo = proArbol.nextNode())) {
	elmLI = document.createElement('li');
	elmText = document.createTextNode(Nodo.getAttribute('href'));
	elmLI.appendChild(elmText);
	elmUL.appendChild(elmLI);
	}
elmDIV.appendChild(elmUL);
Desactivar(elmX);
}

function borrarContenido(elmX){
if (Test('Range','2.0')==false) return false;
var elmP = document.getElementById('ParrafoEj');
var Rango = document.createRange();
Rango.setStart(elmP.childNodes[0], 19);
Rango.setEnd(elmP.childNodes[0], 27);
Rango.deleteContents();
Rango.detach()
Desactivar(elmX);
}

function moverContenido(elmX){
if (Test('Range','2.0')==false) return false;
var elmPo = document.getElementById('ParrafoEj');
var elmPd;
var Fragmento;
var Rango = document.createRange();
Rango.setStart(elmPo.childNodes[3].firstChild, 7);
Rango.setEnd(elmPo.childNodes[5].firstChild, 6);
Fragmento = Rango.extractContents();
elmPd = document.createElement('p');
elmPd.appendChild(Fragmento);
elmPo.parentNode.appendChild(elmPd);
Rango.detach()
Desactivar(elmX);
}

function Desactivar(elmX) {
elmX.style.display='none';
}

function Test(Caracter, Version) {
if (IgnorarTest==true) return true;
var Soporte = false;
if(document.implementation) Soporte = document.implementation.hasFeature(Caracter,Version);
if (Soporte==false) alert('Este navegador no soporta DOM ' + Caracter + ' ' + Version);
return Soporte;
}