# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)
# ---------- InLine Frame Element Information -------------------------------------------------------------
#
# Dependencies	: main.kmm (ExecMacros).
#
#-------------------------------
#
# ------------------------------------------------------------------------------------------------------------------
Page_IFrames{
macroinfo=_("View all InLine Frames in the current page");
$ExecMacros="IFrames_list"; $ForceTab=true; &ExecMacros_Popups;
}
IFrames_list{
injectJS("var iframe,framesrc,txt,sts,lengt1,bar,Newwin,tit=document.title,loc= window.location;bar = tit ? tit:loc;txt = '<html>\\n<head>\\n<title>\\n'+bar+'\\n</title>\\n</head>\\n<body>\\n<fieldset>\\n\\t<legend>\\n\\t<a href=\"'+loc +'\">'+bar+'</a>\\n\\t</legend>\\n\\t<ol>';iframe = document.getElementsByTagName('iframe');lengt1 = iframe.length;if (lengt1 > 0) {for (i = 0; i < lengt1; i++){framesrc = iframe[i].src;txt += '<h3>\\n\\t<li><a href=\"'+framesrc+'\"><u>Iframe Link </u>'+(i+1)+'</a>\\n\\t<p><iframe src=\"'+framesrc+'\" width=\"500px\" frameborder=\"5\" scrolling=\"yes\" height=\"200px\">No preview</iframe></p>\\n\\t</li>\\n\\t<hr>';}sts=true;}if(!(lengt1)){confirm('NO InLine Frames in this page');sts=false;}if(sts){Newwin=open('','newwin');Newwin.document.open();Newwin.document.write(txt+'\\n</fieldset>\\n</body>\\n</html>');Newwin.document.close();Newwin.focus();}");
}
Frames_list_BuildMenu{
setmenu("Page Pro&perties",macro,"Inner Frames list",Page_IFrames,1);
setmenu("Page &Properties",macro,"Inner Frames list",Page_IFrames,1);
}
$OnInit=$OnInit."Frames_list_BuildMenu;";

# ------------------------------------------------------------------------------------------------------------------
$macroModules=$macroModules."IFrames;";