function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}


function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_openBrWindow(theURL,winName,features) { //v2.0
  pop = window.open(theURL,winName,features);
  pop.focus();
}


// *** COMMON CROSS-BROWSER COMPATIBILITY CODE ***
var isDOM=document.getElementById?1:0;
var isIE=document.all?1:0;
var isNS4=navigator.appName=='Netscape'&&!isDOM?1:0;
var isIE4=isIE&&!isDOM?1:0;
var isOp=window.opera?1:0;
var isDyn=isDOM||isIE||isNS4;


function getRef(id, par)
{
 par=!par?document:(par.navigator?par.document:par);
 return (isIE ? par.all[id] :
  (isDOM ? (par.getElementById?par:par.ownerDocument).getElementById(id) :
  (isNS4 ? par.layers[id] : null)));
}

function getSty(id, par)
{
 var r=getRef(id, par);
 return r?(isNS4?r:r.style):null;
}

if (!window.LayerObj) var LayerObj = new Function('id', 'par',
 'this.ref=getRef(id, par); this.sty=getSty(id, par); return this');
function getLyr(id, par) { return new LayerObj(id, par) }

function LyrFn(fn, fc)
{
 LayerObj.prototype[fn] = new Function('var a=arguments,p=a[0],px=isNS4||isOp?0:"px"; ' +
  'with (this) { '+fc+' }');
}
LyrFn('x','if (!isNaN(p)) sty.left=p+px; else return parseInt(sty.left)');
LyrFn('y','if (!isNaN(p)) sty.top=p+px; else return parseInt(sty.top)');
LyrFn('vis','sty.visibility=p');
LyrFn('bgColor','if (isNS4) sty.bgColor=p?p:null; ' +
 'else sty.background=p?p:"transparent"');
LyrFn('bgImage','if (isNS4) sty.background.src=p?p:null; ' +
 'else sty.background=p?"url("+p+")":"transparent"');
LyrFn('clip','if (isNS4) with(sty.clip){left=a[0];top=a[1];right=a[2];bottom=a[3]} ' +
 'else sty.clip="rect("+a[1]+"px "+a[2]+"px "+a[3]+"px "+a[0]+"px)" ');
LyrFn('write','if (isNS4) with (ref.document){write(p);close()} else ref.innerHTML=p');
LyrFn('alpha','var f=ref.filters,d=(p==null); if (f) {' +
 'if (!d&&sty.filter.indexOf("alpha")==-1) sty.filter+=" alpha(opacity="+p+")"; ' +
 'else if (f.length&&f.alpha) with(f.alpha){if(d)enabled=false;else{opacity=p;enabled=true}} }' +
 'else if (isDOM) sty.MozOpacity=d?"":p+"%"');

function setLyr(lVis, docW, par)
{
 if (!setLyr.seq) setLyr.seq=0;
 if (!docW) docW=0;
 var obj = (!par ? (isNS4 ? window : document.body) :
  (!isNS4 && par.navigator ? par.document.body : par));
 var IA='insertAdjacentHTML', AC='appendChild', newID='_js_layer_'+setLyr.seq++;

 if (obj[IA]) obj[IA]('beforeEnd', '<div id="'+newID+'" style="position:absolute"></div>');
 else if (obj[AC])
 {
  var newL=document.createElement('div');
  obj[AC](newL); newL.id=newID; newL.style.position='absolute';
 }
 else if (isNS4)
 {
  var newL=new Layer(docW, obj);
  newID=newL.id;
 }

 var lObj=getLyr(newID, par);
 with (lObj) if (ref) { vis(lVis); x(0); y(0); sty.width=docW+(isNS4?0:'px') }
 return lObj;
}

var CSSmode=document.compatMode;
CSSmode=(CSSmode&&CSSmode.indexOf('CSS')!=-1)||isDOM&&!isIE||isOp?1:0;

if (!window.page) var page = { win: window, minW: 0, minH: 0, MS: isIE&&!isOp,
 db: CSSmode?'documentElement':'body' }

page.winW=function()
 { with (this) return Math.max(minW, MS?win.document[db].clientWidth:win.innerWidth) }
page.winH=function()
 { with (this) return Math.max(minH, MS?win.document[db].clientHeight:win.innerHeight) }

page.scrollX=function()
 { with (this) return MS?win.document[db].scrollLeft:win.pageXOffset }
page.scrollY=function()
 { with (this) return MS?win.document[db].scrollTop:win.pageYOffset }

function popOver(mN, iN) { with (this)
{
 // Cancel any pending menu hides from a previous mouseout.
 clearTimeout(hideTimer);
 // Set the 'over' variables to point to this item.
 overM = mN;
 overI = iN;
 // Call the 'onMouseOver' event if it exists, and the item number is 1 or more.
 if (iN && this.onmouseover) onmouseover(mN, iN);

 // Remember what was lit last time, and compute a new hierarchy.
 litOld = litNow;
 litNow = new Array();
 var litM = mN, litI = iN;
 while(1)
 {
  litNow[litM] = litI;
  // If we've reached the top of the hierarchy, exit loop.
  if (litM == 'root') break;
  // Otherwise repeat with this menu's parent.
  litI = menu[litM][0].parentItem;
  litM = menu[litM][0].parentMenu;
 }

 // If the two arrays are the same, return... no use hiding/lighting otherwise.
 var same = true;
 for (var z in menu) if (litNow[z] != litOld[z]) same = false;
 if (same) return;

 // If this is a different menu, clear another pending show.
 clearTimeout(showTimer);

	// Cycle through menu array, lighting and hiding menus as necessary.
 for (thisM in menu) with (menu[thisM][0])
 {
  // Doesn't exist yet? Keep rollin'...
  if (!lyr) continue;

  // The number of this menu's item that is to be lit, undefined if none.
  litI = litNow[thisM];
  oldI = litOld[thisM];

  // If it's lit now and wasn't before, highlight...
  if (litI && (litI != oldI)) changeCol(thisM, litI, true);

  // If another item was lit but isn't now, dim the old item.
  if (oldI && (oldI != litI)) changeCol(thisM, oldI, false);

  // Make sure if it's lit, it's shown, and set the visNow flag.
  if (litI && !visNow && (thisM != 'root'))
  {
   showMenu(thisM);
   visNow = true;
  }

  // If this menu has no items from the current hierarchy in it, and is currently
  // onscreen, call the hide function.
  if (isNaN(litI) && visNow)
  {
   hideMenu(thisM);
   visNow = false;
  }
 }

 // Get target menu to show - if we've got one, position & show it.
 // If this menu is set to show submenus on click, skip this.
 nextMenu = '';
 if ((menu[mN][iN].type == 'sm:') && !menu[mN][0].subsOnClick)
 {
  // The target menu and the layer object of the current menu itself (not this item).
  var targ = menu[mN][iN].href, lyrM = menu[mN][0].lyr;

// EXTRA CODE - Uncomment these lines to enable dynamic create-as-needed menu support,
// where you can create only the root menu on page load and others when you point at them.
// I would recommend using this for single-frame menus only, and changing the "Events"
// section of the code to call pMenu.update(false, 'root') on page load for all browsers
// and disabling "fast" inline creation mode. Bear in mind this won't work in Opera 5/6.

//if (!menu[targ][0].lyr) update(false, targ);
//if (!menu[targ][0].lyr) return;

  // Either show immediately or after a delay if set by passing it to the position and show functions.
  // Set nextMenu to the impending show, so the popOut() function knows when not to cancel it.
  var showStr = 'with ('+myName+') { menu.'+targ+'[0].visNow = true; ' +
   'position("'+targ+'"); showMenu("'+targ+'") }';
  nextMenu = targ;
  if (showDelay) showTimer = setTimeout(showStr, showDelay);
  else eval(showStr);
 }
}}


function popOut(mN, iN) { with (this)
{
 // Sometimes, across frames, overs and outs can get confused.
 // So, return if we're exiting an item we have yet to enter...
 if ((mN != overM) || (iN != overI)) return;

 // Evaluate the onmouseout event, if any.
 if (this.onmouseout) onmouseout(mN, iN);

 var thisI = menu[mN][iN];

 // Stop showing another menu if this item isn't pointing to the same one.
 if (thisI.href != nextMenu)
 {
  clearTimeout(showTimer);
  nextMenu = '';
 }

 // Hide all menus rapidly (if it's a root menu item without a popout) or as specified.
 // Remember that the timeout is cancelled by another instance of the over function.
 // Calling 'over("root", 0)' hides all menus but the root menu, and highlights no items.
 // If hideDelay equals zero the menus are never hidden.
 if (hideDelay)
 {
  var delay = ((mN == 'root') && (thisI.type != 'sm:')) ? 50 : hideDelay;
  hideTimer = setTimeout(myName + '.over("root", 0)', delay);
 }

 // Clear the 'over' variables.
 overM = 'root';
 overI = 0;
}}


function popClick(mN, iN) { with (this)
{
 // Evaluate the onclick event, if any.
 if (this.onclick) onclick(mN, iN);

 var thisI = menu[mN][iN], hideM = true;

 with (thisI) switch (type)
 {
  // Targeting another popout? Either activate show-on-click or skip to the end.
  case 'sm:':
  {
   if (menu[overM][0].subsOnClick)
   {
    menu[href][0].visNow = true;
    position(href);
    showMenu(href);
    hideM = false;
   }
   break;
  }
  // A JavaScript function? Eval() it and break out of switch.
  case 'js:': { eval(href); break }
  // Otherwise, point to the window if nothing else and navigate.
  case '': type = 'window';
  default: if (href) eval(type + '.location.href = "' + href + '"');
 }

 // Hide all menus if we're supposed to.
 if (hideM) over('root', 0);
}}


function popChangeCol(mN, iN, isOver) { with (this.menu[mN][iN])
{
 if (!lyr || !lyr.ref) return;

 // Pick a new background colour, and decide on whether it's an image (contains a period?).
 var col = isOver?overCol:outCol;
 var bgFn = (col.indexOf('.')==-1) ? 'bgColor' : 'bgImage';
 // Then we do it before or after the text/border change due to Netscape bugs.
 if (isNS4) lyr[bgFn](col);

 // Test for CSS text/border style changes, we can skip them if not needed.
 // In Netscape 4, rewrite layer contents if required (causes a little flickering)...
 // Otherwise manipulate the DOM tree for IE/NS6+ (faster than rewriting contents).
 if ((overClass != outClass) || (outBorder != overBorder)) with (lyr)
 {
  if (isNS4) write(this.getHTML(mN, iN, isOver));
  else
  {
   ref.className = (isOver ? overBorder : outBorder);
   var chl = (isDOM ? ref.childNodes : ref.children)
   if (chl) for (var i = 0; i < chl.length; i++) chl[i].className = isOver?overClass:outClass;
  }
 }

 if (!isNS4) lyr[bgFn](col);

 // Alpha filtering activated? Might as well set that then too...
 // Weirdly it has to be done after the border change, another random Mozilla bug...
 if (outAlpha != overAlpha) lyr.alpha(isOver ? overAlpha : outAlpha);
}}


function popPosition(posMN) { with (this)
{
 // Pass a menu name to position, or nothing to position all menus.
 for (mN in menu)
 {
  if (posMN && (posMN != mN)) continue;
  with (menu[mN][0])
  {
   // If the menu hasn't been created or is not set to be visible, loop.
   if (!lyr || !lyr.ref || !visNow) continue;

   // Set up some variables and the initial calculated positions.
   var pM, pI, newX = eval(offX), newY = eval(offY);
   // Find its parent menu references, if it's not the topmost root menu.
   if (mN != 'root')
   {
    pM = menu[parentMenu];
    pI = pM[parentItem].lyr;
    // Having no parent item is a bad thing, especially in cross-frame code.
    if (!pI) continue;
   }

   // Find parent window for correct page object, or this window if not.
   var eP = eval(par);
   var pW = (eP && eP.navigator ? eP : window);

   // Find proper numerical values for the current window position + edges, so menus
   // don't make a beeline for the upper-left corner of the page.
   with (pW.page) var sX=scrollX(), wX=sX+winW(), sY=scrollY(), wY=winH()+sY;
   wX = isNaN(wX)||!wX ? 9999 : wX;
   wY = isNaN(wY)||!wY ? 9999 : wY;

   // Relatively positioned submenus? Add parent menu/item position & check screen edges.
   if (pM && typeof(offX)=='number') newX = Math.max(sX,
    Math.min(newX+pM[0].lyr.x()+pI.x(), wX-menuW-(isIE?5:20)));
   if (pM && typeof(offY)=='number') newY = Math.max(sY,
    Math.min(newY+pM[0].lyr.y()+pI.y(), wY-menuH-(isIE?5:20)));

   // Assign the final calculated positions.
   lyr.x(newX);
   lyr.y(newY);
  }
 }
}}

// *** MENU OBJECT CONSTRUCTION FUNCTIONS ***

// This takes arrays of data and names and assigns the values to a specified object.
function addProps(obj, data, names, addNull)
{
 for (var i = 0; i < names.length; i++) if(i < data.length || addNull) obj[names[i]] = data[i];
}

function ItemStyle()
{
 // Like the other constructors, this passes a list of property names that correspond to the list
 // of arguments.
 var names = ['len', 'spacing', 'popInd', 'popPos', 'pad', 'outCol', 'overCol', 'outClass',
  'overClass', 'outBorder', 'overBorder', 'outAlpha', 'overAlpha', 'normCursor', 'nullCursor'];
 addProps(this, arguments, names, true);
}

function popStartMenu(mName) { with (this)
{
 // Create a new array within the menu object if none exists already, and a new menu object within.
 if (!menu[mName]) { menu[mName] = new Array(); menu[mName][0] = new Object(); }

 // Clean out existing items in this menu in case of a menu update.
 // actMenu is a reference to this menu for addItem() function later, while the local variable
 // aM is a quick reference to the current menu descriptor -- array index 0, 1+ are items.
 actMenu = menu[mName];
 aM = actMenu[0];
 actMenu.length = 1;

 // Not all of these are actually passed to the constructor -- the last few are null.
 // N.B: I pass 'isVert' twice so the first parameter (the menu name) is overwritten & ignored.
 var names = ['isVert', 'isVert', 'offX','offY', 'width', 'itemSty', 'par',
  'parentMenu', 'parentItem', 'visNow', 'oncreate', 'subsOnClick'];
 addProps(aM, arguments, names, true);

 // extraHTML is a string added to menu layers for things like dropshadows, backgrounds etc.
 aM.extraHTML = '';
 // Set the menu dimensions to zero initially. Also these are used to position items.
 aM.menuW = aM.menuH = 0;

 // Reuse old layers if we can, no use creating new ones every time the menus refresh.
 if (!aM.lyr) aM.lyr = null;
 
 // Assign a default oncreate event to the root menu to show it.
 if (mName == 'root') menu.root[0].oncreate = new Function('this.visNow=true; ' +
  myName + '.position("root"); this.lyr.vis("visible")');
}}


function popAddItem() { with (this) with (actMenu[0])
{
 // 'with' the current menu object and active menu descriptor object from startMenu().

 // Add these properties onto a new 'active Item' at the end of the active menu.
 var aI = actMenu[actMenu.length] = new Object();

 // Add function parameters to object. Again, the last few are undefined, set later.
 var names = ['text', 'href', 'type', 'itemSty', 'len', 'spacing', 'popInd', 'popPos',
  'pad', 'outCol', 'overCol', 'outClass', 'overClass', 'outBorder', 'overBorder',
  'outAlpha', 'overAlpha', 'normCursor', 'nullCursor',
  'iX', 'iY', 'iW', 'iH', 'lyr'];
 addProps(aI, arguments, names, true);

 // Find an applicable itemSty -- either passed to this item or the menu[0] object.
 var iSty = (arguments[3] ? arguments[3] : actMenu[0].itemSty);
 // Loop through its properties, add them if they don't already exist (overridden e.g. length).
 for (prop in iSty) if (aI[prop]+'' == 'undefined') aI[prop] = iSty[prop];

 // In NS4, since borders are assigned to the contents rather than the layer, increase padding.
 if (aI.outBorder)
 {
  if (isNS4) aI.pad++;
 }

 // The actual dimensions of the items, store here as properties so they can be accessed later.
 aI.iW = (isVert ? width : aI.len);
 aI.iH = (isVert ? aI.len : width);

 // The spacing of the previous menu item in this menu, if relevant.
 var lastGap = (actMenu.length > 2) ? actMenu[actMenu.length - 2].spacing : 0;

 // 'spc' is the amount we subtract from this item's position so borders overlap a little.
 // Of course we don't do it to the first item.
 var spc = ((actMenu.length > 2) && aI.outBorder ? 1 : 0);

 // We position this item at the end of the current menu's dimensions,
 // and then increase the menu dimensions by the size of this item.
 if (isVert)
 {
  menuH += lastGap - spc;
  aI.iX = 0; aI.iY = menuH;
  menuW = width; menuH += aI.iH;
 }
 else
 {
  menuW += lastGap - spc;
  aI.iX = menuW; aI.iY = 0;
  menuW += aI.iW; menuH = width;
 }

 // When we are running in proper 'CSS1Compat' mode, borders affect widths differently, so we
 // subtract some pixels here to go with the old 'loose' specification. Swap this around if you
 // want your documents to conform with the new specs.
 if (aI.outBorder && CSSmode)
 {
  aI.iW -= 2;
  aI.iH -= 2;
 }
}
}

// *** MAIN MENU CREATION/UPDATE FUNCTIONS ***
// Returns the inner HTML of an item, used for menu generation, and highlights in NS4.
function popGetHTML(mN, iN, isOver) { with (this)
{
 var itemStr = '';
 with (menu[mN][iN])
 {
  var textClass = (isOver ? overClass : outClass);

  // If we're supposed to add a popout indicator, add it before text so it appears below in NS4.
  if ((type == 'sm:') && popInd)
  {
   if (isNS4) itemStr += '<layer class="' + textClass + '" left="'+ ((popPos+iW)%iW) +
    '" top="' + pad + '" height="' + (iH-2*pad) + '">' + popInd + '</layer>';
   else itemStr += '<div class="' + textClass + '" style="position: absolute; left: ' +
    ((popPos+iW)%iW) + 'px; top: ' + pad + 'px; height: ' + (iH-2*pad) + 'px">' + popInd + '</div>';
  }

  // For NS4, if a border is assigned, add a spacer to push border out to layer edges.
  // Add a link both to generate an onClick event and to stop the ugly I-beam text cursor appearing.
  if (isNS4) itemStr += (outBorder ? '<span class="' + (isOver?overBorder:outBorder) +
   '"><spacer type="block" width="' + (iW-8) + '" height="' + (iH-8) + '"></span>' : '') +
   '<layer left="' + pad + '" top="' + pad + '" width="' + (iW-2*pad) + '" height="' +
   (iH-2*pad) + '"><a class="' + textClass + '" href="#" ' +
   'onClick="return false" onMouseOver="status=\'\'; ' + myName + '.over(\'' + mN + '\',' +
   iN + '); return true">' + text + '</a></layer>';

  // IE4+/NS6 is an awful lot easier to work with sometimes.
  else itemStr += '<div class="' + textClass + '" style="position: absolute; left: ' + pad +
   'px; top: ' + pad + 'px; width: ' + (iW-2*pad) + 'px; height: ' + (iH-2*pad) + 'px">' +
   text + '</div>';
 }
 return itemStr;
}}


// The main menu creation/update routine. The first parameter is 'true' if you want the script
// to use document.write() to create the menus. Second parameter is optionally the name of one
// menu only to update rather then create all menus.
function popUpdate(docWrite, upMN) { with (this)
{
 // 'isDyn' (set at the very top of the script) signifies a DHTML-capable browser.
 if (!isDyn) return;

 // Loop through menus, using properties of menu description object (array index 0)...
 for (mN in menu) with (menu[mN][0])
 {
  // If we're updating one specific menu, only run the code for that.
  if (upMN && (upMN != mN)) continue;

  // Variable for holding HTML for items.
  var str = '';

  // Remember, items start from 1 in the array (0 is menu object itself, above).
  // Also use properties of each item nested in the other with() for construction.
  for (var iN = 1; iN < menu[mN].length; iN++) with (menu[mN][iN])
  {
   // An ID for divs/layers contained within the menu.
   var itemID = myName + '_' + mN + '_' + iN;

   // Now is a good time to assign another menu's parent to this if we've got a popout item.
   var targM = menu[href];
   if (targM && (type == 'sm:'))
   {
    targM[0].parentMenu = mN;
    targM[0].parentItem = iN;
   }

   // Have we been given a background image? It'll have a period in its name if so...
   var isImg = (outCol.indexOf('.') != -1) ? true : false;

   // NS6 uses a different cursor name for the 'hand' cursor than IE.
   if (!isIE && normCursor=='hand') normCursor = 'pointer';

   // Create a div or layer text string with appropriate styles/properties.
   // OK, OK, I know this is a little obtuse in syntax, but it's small...
   // At the end we set the alpha transparency (if specified) and the mouse cursor.
   if (isDOM || isIE4)
   {
    str += '<div id="' + itemID + '" ' + (outBorder ? 'class="'+outBorder+'" ' : '') +
     'style="position: absolute; left: ' + iX + 'px; top: ' + iY + 'px; width: ' + iW +
     'px; height: ' + iH + 'px; z-index: 1000; background: ' + (isImg?'url('+outCol+')':outCol) +
     ((typeof(outAlpha)=='number') ? '; filter: alpha(opacity='+ outAlpha + '); -moz-opacity: ' +
      (outAlpha/100) : '') +
     '; cursor: ' + ((type!='sm:' && href) ? normCursor : nullCursor) + '" ';
   }
   else if (isNS4)
   {
    // NS4's borders must be assigned within the layer so they stay when content is replaced.
    str += '<layer id="' + itemID + '" left="' + iX + '" top="' + iY + '" width="' +
     iW + '" height="' + iH + '" z-index="1000" ' +
     (outCol ? (isImg ? 'background="' : 'bgcolor="') + outCol + '" ' : '');
   }

   // Add mouseover and click handlers, contents, and finish div/layer.
   var evtMN = '(\'' + mN + '\',' + iN + ')"';
   str += 'onMouseOver="' + myName + '.over' + evtMN +
     ' onMouseOut="' + myName + '.out' + evtMN +
     ' onClick="' + myName + '.click' + evtMN + '>' +
     getHTML(mN, iN, false) + (isNS4 ? '</layer>' : '</div>');

  // End loop through items and with(menu[mN][iN]).
  }


  // The parent frame for this menu, if any.
  var eP = eval(par);


  // Do not ask me why Opera makes me set a timeout now rather than later, or in fact have
  // to set a timeout at all to get references to the divs we are about to create.
  // But, it makes the cross-frame version of the script actually work, so there's a benefit.
  setTimeout(myName + '.setupRef(' + docWrite + ', "' + mN + '")', 50);

  // Initial menu visibility, hidden unless tweaked otherwise.
  var mVis = visNow ? 'visible' : 'hidden';

  // For Fast creation mode (default for IE, NS6, Opera), write the menus to the document now.
  // I'm adding a bit to the widths for safety as borders are different across browsers.
  if (docWrite)
  {
   // Find the right target frame.
   var targFr = (eP && eP.navigator ? eP : window);
   targFr.document.write('<div id="' + myName + '_' + mN + '_Div" style="position: absolute; ' +
    'visibility: ' + mVis + '; left: 0px; top: 0px; width: ' + (menuW+2) + 'px; height: ' +
    (menuH+2) + 'px; z-index: 1000">' + str + extraHTML + '</div>');
  }
  else
  {
   // Create a new layer/div object dynamically using my setLyr() function above.
   // If we've got a layer created already, there's no use creating another!.
   // In IE4, we must shrink the menus to stop them sizing to the full body size -- thanks
   // to Jeff Blum and Paul Maden for debugging this for me :). If the layer has been created,
   // we've got to set a timeout to fix up IE4 again for some obscure reason.
   if (!lyr || !lyr.ref) lyr = setLyr(mVis, menuW, eP);
   else if (isIE4) setTimeout(myName + '.menu.' + mN + '[0].lyr.sty.width=' + (menuW+2), 50);

   // Give it a high Z-index, and write its content.
   with (lyr) { sty.zIndex = 1000; write(str + extraHTML) }
  }

 // End loop through menus and with (menu[mN][0]).
 }
}}


function popSetupRef(docWrite, mN) { with (this) with (menu[mN][0])
{
 // Get a reference to a div, only needed for Fast creation mode.
 if (docWrite || !lyr || !lyr.ref) lyr = getLyr(myName + '_' + mN + '_Div', eval(par));

 // Loop through menu items again to set up individual references.
 for (var i = 1; i < menu[mN].length; i++)
  menu[mN][i].lyr = getLyr(myName + '_' + mN + '_' + i, (isNS4?lyr.ref:eval(par)));

 // Call the 'oncreate' method of this menu if it exists (e.g. to show root menu).
 if (menu[mN][0].oncreate) oncreate();
}}

// ----------------- ******************************* --------------------------------- 

// *** POPUP MENU MAIN OBJECT CONSTRUCTOR ***

function PopupMenu(myName)
{
 // These are the properties of any PopupMenu objects you create.
 this.myName = myName;

 // Manage what gets lit and shown when.
 this.showTimer = 0;
 this.hideTimer = 0;
 this.showDelay = 0;
 this.hideDelay = 500;
 this.showMenu = '';

 // 'menu': the main data store, contains subarrays for each menu e.g. pMenu.menu['root'][];
 this.menu =  new Array();
 // litNow and litOld arrays control what items get lit in the hierarchy.
 this.litNow = new Array();
 this.litOld = new Array();

 // The item the mouse is currently over. Used by click processor to help NS4.
 this.overM = 'root';
 this.overI = 0;

 // The active menu, to which addItem() will assign its results.
 this.actMenu = null;

 // Functions to create and manage the menu.
 this.over = popOver;
 this.out = popOut;
 this.changeCol = popChangeCol;
 this.position = popPosition;
 this.click = popClick;
 this.startMenu = popStartMenu;
 this.addItem = popAddItem;
 this.getHTML = popGetHTML;
 this.update = popUpdate;
 this.setupRef = popSetupRef;

 // Default show and hide functions, overridden in the example script by the clipping routine.
 this.showMenu = new Function('mName', 'this.menu[mName][0].lyr.vis("visible")');
 this.hideMenu = new Function('mName', 'this.menu[mName][0].lyr.vis("hidden")');
}

// 'horizontal Bar' style: menu items that use this ItemStyle are 40px wide, have 10px gaps
// between them, no popout indicator (the ">" in some menus) or popout indicator position,
// 0px padding of the text within items, #336699 background colour, a hover colour of #6699CC,
// 'highText' is the stylesheet class used for the menu text both normally and when highlighted,
// no border styles, 'null' means fully opaque items (set them to numbers between 0 and 100 to
// enable semitranslucency), and the 'hand'/'default' cursors are used for linked/submenu items.

var hBar = new ItemStyle(120, 20, '', 0, 0, '#FFFFFF', '#FF6600', 'lowText', 'highText', 'itemBorder', 'itemBorder', null, null, 'hand', 'default');

// The 'sub Menu' items: 22px long, 0px spacing, a 'greater than' sign for a popout indicator
// (you may wish to use an image tag?), the popout indicator is positioned 15px from the right
// edge of the item, items have 3px padding, some colours, it uses 'lowText' as the dimmed text
// class but 'highText' when it is moused over, and 'itemBorder' as the border stylesheet class.
// No opacity is used, and they have the same cursors as the above ItemStyle.

var subM = new ItemStyle(22, 0, '&gt;', -15, 3, '#FFFFFF', '#FF6600', 'lowText', 'highText', 'itemBorder', 'itemBorder', null, null, 'hand', 'default');

// 'subBlank' is similar, but has an 'off' border the same colour as its background so it
// appears borderless when dim, and 1px spacing between items to show the hover border.

var subBlank = new ItemStyle(22, 0, '&gt;', -15, 3, '#FFFFFF', '#FF6600', 'lowText', 'highText', 'itemBorder', 'itemBorderBlank', null, null, 'hand', 'default');

// The purplish 'button' style also has 1px spacing to show up the fancy border, and it has
// different colours/text and less padding. They also have translucency set -- these items
// are 80% opaque when dim and 95% when highlighted. It uses the 'crosshair' cursor for items.

var button = new ItemStyle(22, 1, '&gt;', -15, 2, '#006633', '#CC6600', 'buttonText', 'buttonHover', 'buttonBorder', 'buttonBorderOver', 80, 95, 'crosshair', 'default');

// A PopupMenu() object must be passed its own name so it can reference itself when the menu
// is active. We also use a 'with' block to work with its properties and functions below.
var pMenu = new PopupMenu('pMenu');
with (pMenu)
{
// The 'root' menu is horizontal, positioned at (x = 10, y = 0) and is 17px high, and items
// by default use the colours and dimensions in the 'hBar' ItemStyle defined above.
// This menu is also positioned over a similarly-coloured table in the HTML document above.
startMenu('root', false, 10, 180, 17, hBar);

// The text is a space then 'File', and this item pops out the 'mFile' submenu when moused over
// as we've set 'sm:' as the action type. If you want to assign a click action (e.g. navigating to
// a file) to one of these 'sm:' items, see the 'Optional Code' section below.
//addItem('&nbsp; l\'accueil', '/', '');
addItem('&nbsp; Espace Pub &nbsp;&nbsp;<img border=0 src=menu_fleche.gif>', 'mPub', 'sm:');
addItem('&nbsp; Formations &nbsp;&nbsp;<img border=0 src=menu_fleche.gif>', 'mFormation', 'sm:');
addItem('&nbsp; Portraits d\'Artistes &nbsp;&nbsp;<img border=0 src=menu_fleche.gif>', 'mPortrait','sm:');
addItem('&nbsp; Vos reportages &nbsp;&nbsp;<img border=0 src=menu_fleche.gif>', 'mReport', 'sm:');
addItem('&nbsp; Musées &nbsp;&nbsp;<img border=0 src=menu_fleche.gif>', 'mMusee', 'sm:');
addItem('&nbsp; Collections Privées &nbsp;<img border=0 src=menu_fleche.gif>', 'mPrivee','sm:');

//addItem('&nbsp; Espace Pub , 'mPub', 'sm:');
//addItem('&nbsp; Formation', 'mFormation', 'sm:');
//addItem('&nbsp; Portrait', 'mPortrait', 'sm:');
//addItem('&nbsp; vos reportages', 'mReport', 'sm:');
//addItem('&nbsp; Musées', 'mMusee', 'sm:');
//addItem('&nbsp; Me Connaitre', 'mPrivee', 'sm:');
//addItem('&nbsp; aide', 'mAide', 'sm:');


// --------------- PUBLICITE ----------------

// This is a vertical menu positioned 0px across and 22px down from its trigger, and is 80px wide.
startMenu('mPub', true, 0, 22, 185, subM);
// The URLs are set to # here, be sure to replace them with your path/file names or JS functions!
// Also note how all the types are '', indicating these links open in the current frame.
addItem('Agenda','Calendrier/calendrier.htm', '');
addItem('Fournitures','Materiel/materiel.htm','');
addItem('Les catalogues de vos fournisseurs','mCatalogues','sm:'); 
addItem('Les nouveaux livres','Pub/livres.htm',''); 

// ***********  Catalogues
startMenu('mCatalogues', true, 185, 0, 250, subM);
addItem('De Meester (Livres)', 'Materiel/images/DeMeester2008.pdf', '');
// addItem('Midon Dentelles (materiel)','Materiel/images/Midon_dentelle.pdf', '');
addItem('Atelier Ambre (eventails)', 'Materiel/images/catalogprix.pdf', '');



// --------------- FORMATION -----------------

startMenu('mFormation',true, 0, 22, 180, subM);
addItem('Explications', 'http://www.dentellieres.com/Formation/index.htm','');
addItem('Espace Adhérents', 'http://adherent.dentellieres.com/index.htm', '');
addItem('Les stages que je vous propose', 'Formation/Stage/index.htm', '');
addItem('Compte rendu des stages', 'mStage04', 'sm:');
addItem('Les écoles et associations', 'Ecole/ecole1.htm', '');

// ***********  Stages 2004'

startMenu('mStage04', true, 185, 0, 250, subM);
addItem('Le Boutis  (Michèle Charvet - Juillet)', 'Formation/PromoStage/Boutis2004/index.htm', '');
addItem('Dentelle de Valenciennes  (Rosanna Orgiu - Juillet)', 'Formation/PromoStage/Valenciennes2004/index.htm', '');


// -------------- REPORTAGES -----------------

// Popout slightly left of its trigger, for fun...
startMenu('mReport',true, 0, 22, 85, subM);
// Instead of using spaces to indent, consider 'text-indent' in the stylesheet class perhaps?
addItem('en 2011', 'mReport11', 'sm:');
addItem('en 2010', 'mReport10', 'sm:');
addItem('en 2009', 'mReport09', 'sm:');
addItem('en 2008', 'mReport08', 'sm:');
addItem('en 2007', 'mReport07', 'sm:');
addItem('en 2006', 'mReport06', 'sm:');
addItem('en 2005', 'mReport05', 'sm:');
addItem('en 2004', 'mReport04', 'sm:');
addItem('en 2003', 'mReport03', 'sm:');
addItem('en 2002', 'mReport02', 'sm:');
addItem('en 2001', 'mReport01', 'sm:');
addItem('en 2000', 'mReport00', 'sm:');


// ***********  Année 2011'

startMenu('mReport11', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF11', 'sm:');
addItem('Etrangers', 'mDetailReportE11', 'sm:');

// -- Français 2011 --
startMenu('mDetailReportF11', true, 85, 0, 350, subM);
addItem('Le grand couvige du Val d\'Oise (Cergy- Novembre)', 'Reportage/R2011/Cergy/index.htm', '');
addItem('La première exposition des dentellières de la Tille (Marey sur Tille - Octobre)', 'Reportage/R2011/Marey/index.htm', '');
addItem('La 5ème Biennale Internationale de Dentelle(Sebourg - Juin)', 'Reportage/R2011/Sebourg/index.htm', '');
addItem('Le Festival International de Dentelle  (Coudekerque - Avril)', 'Reportage/R2011/Coudekerque/index.htm', '');
addItem('Le couvige du Point d\'Esprit  (Montigny le Bretonneux - Mars)', 'Reportage/R2011/Montigny/index.htm', '');
addItem('Weekend Couvige-Exposition de Crolles  (Isère - Mars)', 'Reportage/R2011/Crolles/index.htm', '');
addItem('Les puces dentellières  (Marcoussis - Février)', 'Reportage/R2011/Marcoussis/index.htm', '');
addItem('Le VIIIème Salon de broderie   (Fitz james - Janvier)', 'Reportage/R2011/Fitz/index.htm', '');



// -- Etrangers 2011 --
startMenu('mDetailReportE11', true, 85, 0, 400, subM);
addItem('Le XIIème Festival International de Bobowa  (Pologne - Octobre)', 'Reportage/R2011/Bobowa/index.htm', '');
addItem('Le Festival International de Vologda  (Russie - Juin)', 'Reportage/R2011/Vologda/index.htm', '');
addItem('Le Festival International de Presov  (Slovaquie - Juin)', 'Reportage/R2011/Presov/index.htm', '');
addItem('Le 29ème congrès du Klöppelverband e.V.  (Allemagne - Avril)', 'Reportage/R2011/BadPyrmont/index.htm', '');



// ***********  Année 2010'

startMenu('mReport10', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF10', 'sm:');
addItem('Etrangers', 'mDetailReportE10', 'sm:');

// -- Français 2010 --
startMenu('mDetailReportF10', true, 85, 0, 400, subM);
addItem('Le xème anniversaire de Gagny Dentelle (Gagny - Novembre)', 'Reportage/R2010/Gagny/index.htm', '');
addItem('Rencontre des dentellières et brodeuses (Fontenay le comte - Septembre)', 'Reportage/R2010/Fontenay/index.htm', '');
addItem('La IIème rencontre de Pierrefeu du Var (Var - Juin)', 'Reportage/R2010/Pierrefeu/index.htm', '');
addItem('La VIIème rencontre de Mirecourt (Vosges - Mai)', 'Reportage/R2010/Mirecourt/index.htm', '');
addItem('La IIème rencontre d\'Assevent" (Nord - Avril)', 'Reportage/R2010/Assevent/index.htm', '');
addItem('La première journée de l\'artisanat" (Jeumont - Mars)', 'Reportage/R2010/Jeumont/index.htm', '');
addItem('La Vème rencontre de "Fuseaux en dentelle" (Mornas - Mars)', 'Reportage/R2010/Mornas/index.htm', '');

// -- Etrangers 2010 --
startMenu('mDetailReportE10', true, 85, 0, 400, subM);
addItem('Le concours internation enfants, (St Truiden - Belgique - novembre)', 'Reportage/R2010/concours/index.htm', '');
addItem('La rencontre des fuseaux de l\' Ourchet, (Gembloux- Belgique - octobre)', 'Reportage/R2010/Gembloux/index.htm', '');
addItem('Le XIème Festival de Dentelle, (Bobowa - Pologne - octobre)', 'Reportage/R2010/Bobowa/index.htm', '');
addItem('Le Festival International du Textile (Graz - Autriche - septembre) ', 'Reportage/R2010/Graz/index.htm', '');
addItem('Rendas de bilros, Mostra internacional (Peniche - Portugal - juillet)', 'Reportage/R2010/Peniche/index.htm', '');
addItem('Kniplings-Festival (Tonder - Danemark - juin)', 'Reportage/R2010/Tonder/index.htm', '');
addItem('XIV Xuntanza Internacional de Palilleiras (A Coruña - Espagne - juin)', 'Reportage/R2010/Coruna/index.htm', '');
addItem('Le XXVIIIème Congrès allemand (Bad Hindelang - Allemagne - Avril)', 'Reportage/R2010/Congres/index.htm', '');



// ***********  Année 2009'

startMenu('mReport09', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF09', 'sm:');
addItem('Etrangers', 'mDetailReportE09', 'sm:');

// -- Français 2009 --
startMenu('mDetailReportF09', true, 85, 0, 350, subM);
addItem('La 4ème rencontre internationale de SEBOURG', 'Reportage/R2009/Sebourg/index.htm', '');
addItem('Le Festival de dentelle et métiers d\'Art (Hondschoote - Mars)', 'Reportage/R2009/Hondschoote/index.htm', ''); 
addItem('Le III ème festival de dentelle (Mehun - Mars)', 'Reportage/R2009/Mehun/index.htm', ''); 

// -- Etrangers 2009 --
startMenu('mDetailReportE09', true, 85, 0, 400, subM);
addItem('La XIXème Mostra de Camariñas (Espagne - Avril)', 'Reportage/R2009/Camarinas/index.htm', '');
addItem('Le 10ème festival international de Bobowa (Pologne - octobre)', 'Reportage/R2009/Bobowa/index.htm', '');
addItem('Le XXVIIème Congrès allemand (Willingem - Avril)', 'Reportage/R2009/Congres/index.htm', '');
addItem('Anny et le Masterclass Binche du kantcentrum de Bruges', 'Reportage/R2009/Anny/index.htm', '');


// ***********  Année 2008'

startMenu('mReport08', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF08', 'sm:');
addItem('Etrangers', 'mDetailReportE08', 'sm:');

// -- Français 2008 --
startMenu('mDetailReportF08', true, 85, 0, 400, subM);
addItem('Le IIIème Festival dentellier de Bretagne  (Colpo - Septembre)', 'Reportage/R2008/Colpo/index.htm', ''); 
addItem('Le IIIème Couvige des Dentellières Bressanes  (St Etienne du bois - Juin)', 'Reportage/R2008/Saint-etienne-du-bois/index.htm', ''); 
addItem('La VIème rencontre internationale de la dentelle (Vauvert - Mai)', 'Reportage/R2008/Vauvert/index.htm', ''); 
addItem('Le Festival international de la dentelle (Coudekerque-Branche - Avril)', 'Reportage/R2008/Coudekerque/index.htm', ''); 
addItem('La rencontre des dentellières de l\'UTEL (Maubeuge/Assevent - Avril)', 'Reportage/R2008/Maubeuge/index.htm', ''); 
addItem('La 4ème rencontre de "Fuseaux en dentelle" (Mornas - Mars)', 'Reportage/R2008/Mornas/index.htm', ''); 

// -- Etrangers 2008 --
startMenu('mDetailReportE08', true, 85, 0, 400, subM);
addItem('Le 9ème festival international de Bobowa (Pologne - octobre)', 'Reportage/R2008/Bobowa/index.htm', '');
addItem('Les 30 ans des fuseaux de l\'Ourchet (Gembloux - octobre)', 'Reportage/R2008/Gembloux/index.htm', '');
addItem('La fête internationale de la dentelle (Marche en Famenne - août)', 'Reportage/R2008/Marche/index.htm', '');
addItem('Mostra de Rendas de Bilros (Peniche - juillet)', 'Reportage/R2008/Peniche/index.htm', '');
addItem('XII Xuntanza Internacional de Palilleiras (A Coruña - juin)', 'Reportage/R2008/ACoruna/index.htm', '');
addItem('Le XXVIème Congrès allemand (Neumarkt - Avril)', 'Reportage/R2008/Congres/index.htm', '');
addItem('La XVIIIème Mostra de Camariñas (Espagne - Avril)', 'Reportage/R2008/Camarinas/index.htm', '');
addItem('L\'exposition de Binche (Belgique - Janvier)', 'Reportage/R2008/Binche/index.htm', '');




// ***********  Année 2007'

startMenu('mReport07', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF07', 'sm:');
addItem('Etrangers', 'mDetailReportE07', 'sm:');

// -- Français 2007 --
startMenu('mDetailReportF07', true, 85, 0, 350, subM);
addItem('Le Grand Couvige (Le Puy en Velay - Octobre)', 'Reportage/R2007/LePuy/index.htm', ''); 
addItem('2ème rencontre des Dentellières de l\'Ouest (Poiré sur Vie - Septembre)', 'Reportage/R2007/Poire/index.htm', '');
addItem('1ère rencontre de Bien Vivre à Ste Anne (Reims - Septembre)', 'Reportage/R2007/Reims/index.htm', '');
addItem('Creully 2007 (Creully - Juillet)', 'Reportage/R2007/Creully/index.htm', '');
addItem('La Troisième Exposition des D.S. (Sebourg - Juin)', 'Reportage/R2007/Sebourg/index.htm', '');
addItem('Le couvige du point d\'esprit (Montigny le Bretonneux - Avril)', 'Reportage/R2007/Montigny/index.htm', '');
addItem('Le 2ème Festival de la dentelle (Mehun - Mars)', 'Reportage/R2007/Mehun/index.htm', '');


// -- Etrangers 2007 --
startMenu('mDetailReportE07', true, 85, 0, 300, subM);
addItem('Le stage des enfants dentelliers (Schneeberg - Novembre)', 'Reportage/R2007/Schneeberg-enfants/index.htm', '');
addItem('Le XXVème Congrès allemand (Schneeberg - Avril)', 'Reportage/R2007/Schneeberg/index.htm', '');
addItem('La XVIIème Mostra de Camariñas (Espagne - Avril)', 'Reportage/R2007/Camarinas/index.htm', '');



// ***********  Année 2006'

startMenu('mReport06', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF06', 'sm:');
addItem('Etrangers', 'mDetailReportE06', 'sm:');

// -- Français 2006 --
startMenu('mDetailReportF06', true, 85, 0, 320, subM);
addItem('La 2ème rencontre de Colpo (Bretagne - Septembre)', 'Reportage/R2006/Colpo/index.htm', '');
addItem('La 5ème rencontre de Mirecourt (Vosges - Mai)', 'Reportage/R2006/Mirecourt/index.htm', '');
addItem('L\'art du fil dans l\'art actuel (Fourmies - Mars à novembre)', 'Reportage/R2006/Fourmies/index.htm', '');
addItem('L\'exposition des D.S à Fresnoy le Grand (Aisnes - Janvier à Mars)', 'Reportage/R2006/Fresnoy/index.htm', '');


// -- Etrangers 2006 --
startMenu('mDetailReportE06', true, 85, 0, 300, subM);
addItem('Le Télévie de Mont en Marchienne  (Belgique - Novembre)', 'Reportage/R2006/Charleroi/index.htm', '');
addItem('Le stage international de Schneeverg (Allemagne - Octobre)', 'Reportage/R2006/Schneeberg/index.htm', '');
addItem('L\'exposition le fil, mon Art de Binche (Belgique - Aout)', 'Reportage/R2006/Binche/index.htm', '');
addItem('La semaine de la dentelle de Bruges (Belgique - Aout)', 'Reportage/R2006/Bruges/index.htm', '');
addItem('La 53ème Convention I.O.L.I (Canada - Juillet)', 'Reportage/R2006/Montreal/index.htm', '');
addItem('La XXIVème Congrès allemand (Borken - Avril)', 'Reportage/R2006/Borken/index.htm', '');
addItem('La XVIème Mostra de Camariñas (ESpagne - Avril)', 'Reportage/R2006/Camarinas/index.htm', '');

// ***********  Année 2005'

startMenu('mReport05', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF05', 'sm:');
addItem('Etrangers', 'mDetailReportE05', 'sm:');

// -- Français 2005 --
startMenu('mDetailReportF05', true, 85, 0, 300, subM);
addItem('La V Recontre Internationale de Vauvert (Gard - Novembre)', 'Reportage/R2005/Vauvert/index.htm', '');
addItem('La Recontre de Fontenay le Comte (Vendée - Octobre)', 'Reportage/R2005/Fontenay/index.htm', '');
addItem('La Rencontre Internationale de Creully (Normandie - Juillet)', 'Reportage/R2005/Creully/index.htm', '');
addItem('La 1er exposition des D.S (Sebourg - Juin)', 'Reportage/R2005/Sebourg/index.htm', '');
addItem('La 1er rencontre de Maubeuge (Maubeuge - Février)', 'Reportage/R2005/Maubeuge/index.htm', '');


// -- Etrangers 2005 --
startMenu('mDetailReportE05', true, 85, 0, 300, subM);
addItem('La semaine de la dentelle de Bruges (Août - Belgique)', 'Reportage/R2005/Bruges/index.htm', '');
addItem('Dentelle à l\'aiguille à Villars sur Ollon  (Août - Suisse)', 'Reportage/R2005/Suisse/index.htm', '');
addItem('Le le IIème Forum de Italia Invita (Bellaria - Italie)', 'Reportage/R2005/Belaria/index.htm', '');
addItem('Le XXIIIème congrès Allemand (Weingarten - Allemagne)', 'Reportage/R2005/Weingarten/index.htm', '');
addItem('La XVème Mostra Encaixe (Camariñas - Espagne)', 'Reportage/R2005/Camarinas/index.htm', '');
addItem('Tout sur la XIéme biennale (Bruxelles - Belgique)', 'Reportage/R2005/Bruxelles/index.htm', '');



// ***********  Année 2004'

startMenu('mReport04', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF04', 'sm:');
addItem('Etrangers', 'mDetailReportE04', 'sm:');

// -- Français 2004 --
startMenu('mDetailReportF04', true, 85, 0, 250, subM);
addItem('Le Grand Couvige (Blavozy - Octobre)', 'Reportage/R2004/LePuy/index.htm', '');
addItem('Le Marché Dentellier - D.E.F.(Mehun - Octobre)', 'Reportage/R2004/Mehun/index.htm', '');
addItem('Nu et transparence (Bailleul - Juillet)', 'Reportage/R2004/Bailleul/index.htm', '');
addItem('Les Fables de La Fontaine (Mirecourt - Mai)', 'Reportage/R2004/Mirecourt/index.htm', '');
addItem('Dentelle en Dauphiné (Crolles - Mai)', 'Reportage/R2004/Crolles/index.htm', '');
addItem('Le Point d\'esprit (Montigny le Breton - Mars)', 'Reportage/R2004/Montigny/index.htm', '');
addItem('Le cercle de l\'éventail (Valenciennes - Mars)', 'Reportage/R2004/ValsEventail/index.htm', '');
addItem('L\'aiguille en fête (Paris-La Villette - Février)', 'Reportage/R2004/LaVilette/index.htm', '');
addItem('Les jours de Cilaos (Île de la Réunion Février)', 'Reportage/R2004/Cilaos/index.htm', '');

// -- Etrangers 2004 --
startMenu('mDetailReportE04', true, 85, 0, 300, subM);
addItem('L\'exposition des métiers du Monde (Allemagne - Décembre)', 'Reportage/R2004/Elke/index.htm', '');
addItem('La XXIII éme exposition de Novedrate (Italie - Septembre)', 'Reportage/R2004/Novedrate/index.htm', '');
addItem('La XI éme biennale de Bruxelles (Belgique - Novembre)', 'Reportage/R2004/Bruxelles/index.htm', '');
addItem('La XI éme biennale de Sansepolcro (Italie - Septembre)', 'Reportage/R2004/Sansepolcro/index.htm', '');
addItem('L\'exposition de Tirlemont (Belgique - Juillet)', 'Reportage/R2004/Tirlemont/index.htm', '');
addItem('Le congrès d\'Interlaken (Suisse - Juin)', 'Reportage/R2004/Interlaken/index.htm', '');
addItem('Le 22 congrès de Bad Pyrmont (Allemagne - Avril)', 'Reportage/R2004/BadPyrmont/index.htm', '');
addItem('Les 20 ans des Ateliers d\'Ath (Belgique - Mai)', 'Reportage/R2004/Ath/index.htm', '');


// ***********  Année 2003

startMenu('mReport03', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF03', 'sm:');
addItem('Etrangers', 'mDetailReportE03', 'sm:');

// -- Français 2003 --
startMenu('mDetailReportF03', true, 85, 0, 250, subM);
addItem('Le Grand Couvige (Saint Paulien Octobre 03)', 'Reportage/R2003/LePuy/index.htm', '');
addItem('Le Hainaut en Dentelle (Sebourg Septembre 03)', 'Reportage/R2003/Sebourg/index.htm', '');
addItem('Bourbonne les Bains (Septembre 03)', 'Reportage/R2003/Bourbonne/index.htm', '');
addItem('Creully (Juillet 03)', 'Reportage/R2003/Creully/index.htm', '');
addItem('Tours (Mai 03)', 'Reportage/R2003/Tours/index.htm', '');
addItem('Valenciennes (Avril 03)', 'Reportage/R2003/Valenciennes/index.htm', '');
addItem('Voisins le Bretonneux (Mars 03)', 'Reportage/R2003/Voisins/index.htm', '');
addItem('Les métiers de la Dentelle -Caudry (Mars 03)', 'Reportage/R2003/Caudry/index.htm', '');
addItem('L\'exposition Sylva Deblanc (Février 03)', 'Reportage/R2003/Deblanc/index.htm', '');
addItem('Marcoussis (Février 03)', 'Reportage/R2003/Marcoussis/index.htm', '');
addItem('La catastrophe de Lunéville (Janvier 03)', 'Reportage/R2003/Luneville/index.htm', '');

// -- Etrangers 2003 --
startMenu('mDetailReportE03', true, 85, 0, 220, subM);
addItem('Bonheiden (Belgique - Septembre 03)', 'Reportage/R2003/Bonheiden/index.htm', '');
addItem('Bruges (Belgique - Août 03)', 'Reportage/R2003/Bruges08/index.htm', '');
addItem('Le fuseau d\'or (Italie - Août 03)', 'Reportage/R2003/Offida2/index.htm', '');
addItem('Malaga (Espagne - Juin 03)', 'Reportage/R2003/Malaga/index.htm', '');
addItem('Offida (Italie - Mai 03)', 'Reportage/R2003/Offida/index.htm', '');
addItem('Rimini (Italie - Mai 03)', 'Reportage/R2003/Rimini/index.htm', '');
addItem('Emden (Allemagne - Avril 03)', 'Reportage/R2003/Emden/index.htm', '');


// ***********  Année 2002

startMenu('mReport02', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF02', 'sm:');
addItem('Etrangers', 'mDetailReportE02', 'sm:');

// -- Français 2002 --
startMenu('mDetailReportF02', true, 85, 0, 200, subM);
addItem('Noël à Valenciennes (Décembre 02)', 'Reportage/R2002/NoelVals/index.htm', '');
addItem('Bourg en Bresse (Novembre 02)', 'Reportage/R2002/BourgEnBresse/index.htm', '');
addItem('Le Puy en Velay (Novembre 02)', 'Reportage/R2002/LePuy/index.htm', '');
addItem('Michel Jourde (Novembre 02)', 'Reportage/R2002/Jourde/index.htm', '');
addItem('Centre d\'Enseignement (Octobre 02)', 'Reportage/R2002/CentrePuy/index.htm', '');
addItem('Valenciennes (Septembre 02)', 'Reportage/R2002/Valenciennes/index.htm', '');
addItem('Cabourg (Septembre 02)', 'Reportage/R2002/CaenExpo/index.htm', '');
addItem('Stage Polychrome (Septembre 02)', 'Reportage/R2002/CaenStage/index.htm', '');
addItem('Coudekerque (Mai 02)', 'Reportage/R2002/Coudekerque/index.htm', '');
addItem('Mirecourt (Mai 02)', 'Reportage/R2002/Mirecourt/index.htm', '');
addItem('Bourg le Roi (Mars 02)', 'Reportage/R2002/BourgleRoi/index.htm', '');

// -- Etrangers 2002 --
startMenu('mDetailReportE02', true, 85, 0, 220, subM);
addItem('Marché de Noël (Belgique - Décembre 02)', 'Reportage/R2002/MarcheNoel/index.htm', '');
addItem('Nottingham (Angleterre - Août 02)', 'Reportage/R2002/Nottingham/concours1.htm', '');
addItem('Novedrate (Italie - Août 02)', 'Reportage/R2002/Novedrate/index.htm', '');
addItem('Bruges (Belgique - Août 02)', 'Reportage/R2002/Bruges/index.htm', '');
addItem('Vila do Conde (Portugal - Juillet 02)', 'Reportage/R2002/Vila/index.htm', '');
addItem('Eisleben (Allemagne - Juin 02)', 'Reportage/R2002/Eisleben/index.htm', '');
addItem('Zèle (Belgique - Juin 02)', 'Reportage/R2002/Zele/index.htm', '');
addItem('Walcourt (Belgique - Avril 02)', 'Reportage/R2002/Walcourt/index.htm', '');
addItem('Peruwelz (Belgique - Avril 02)', 'Reportage/R2002/Peruwelz/index.htm', '');
addItem('S\'Gravenmoer (Belgique - Mars 02)', 'Reportage/R2002/Graven/index.htm', '');

// ***********  Année 2001

startMenu('mReport01', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF01', 'sm:');
addItem('Etrangers', 'mDetailReportE01', 'sm:');

// -- Français 2001 --
startMenu('mDetailReportF01', true, 85, 0, 200, subM);
addItem('Sebourg (Novembre 01)', 'Reportage/R2001/Pher/pher1.htm', '');
addItem('Vauvert (Octobre 01)', 'Reportage/R2001/Vauvert/vauvert0.htm', '');
addItem('Sebourg (Septembre 01)', 'Reportage/R2001/JourneeArt/jart1.htm', '');
addItem('Bermerain (Septembre 01)', 'Reportage/R2001/Bermerain/bermerain1.htm', '');
addItem('Puilboreau (Août 01)', 'Reportage/R2001/Brod-perlee/stage1.htm', '');
addItem('Bailleul (Juillet 01)', 'Reportage/R2001/Bailleul/bailleul1.htm', '');
addItem('Breteville sur Odon (Juillet 01)', 'Reportage/R2001/Breteville/caen1.htm', '');
addItem('Cambrai (Juin 01)', 'Reportage/R2001/Cambrai/cambrai1.htm', '');
addItem('Luneville (Juin 01)', 'Reportage/R2001/Luneville/luneville1.htm', '');
addItem('Wazemmes (Mai 01)', 'Reportage/R2001/Wazemmes/broquelet1.htm', '');
addItem('Carnaval à Cambrai (Avril 01)', 'Reportage/R2001/Carnaval/carnaval.htm', '');
addItem('Montigny le Bretonneux (Mars 01)', 'Reportage/R2001/Montigny/montigny1.htm', '');
addItem('Marcoussis (Février 01)', 'Reportage/R2001/Marcousis/marcousis1.htm', '');
addItem('Hergnies (Février 01)', 'Reportage/R2001/Hergnies/hergnies1.htm', '');
addItem('Cambrai (Janvier 01)', 'Reportage/R2001/Michele/index.htm', '');

// -- Etrangers 2001 --
startMenu('mDetailReportE01', true, 85, 0, 200, subM);
addItem('Bonheiden (Belgique - Septembre 2001)', 'Reportage/R2001/Bonheiden/bonheiden1.htm', '');
addItem('Lessines (Belgique - Septembre 2001)', 'Reportage/R2001/Lessines/lessines1.htm', '');
addItem('Bruges (Belgique - Août 2001)', 'Reportage/R2001/Semaine/semaine1.htm', '');
addItem('Reus (Espagne - Juin 01)', 'Reportage/R2001/Reus/reus1.htm', '');
addItem('Ath (Belgique - Mai 01)', 'Reportage/R2001/Ath/ath1.htm', '');
addItem('Brunehaut (Belgique - Mars 01)', 'Reportage/R2001/Brunehaut/brunehaut1.htm', '');


// ***********  Année 2000

startMenu('mReport00', true, 90, 0, 80, subM);
addItem('Français', 'mDetailReportF00', 'sm:');
addItem('Etrangers', 'mDetailReportE00', 'sm:');

// -- Français 2000 --
startMenu('mDetailReportF00', true, 85, 0, 200, subM);
addItem('Chatillon (Novembre 2000)', 'Reportage/R2000/Chatillon/Chatillon.htm', '');
addItem('Saint Saulve (Septembre 2000)', 'Reportage/R2000/Saint-saulve/saint-saulve.htm', '');
addItem('Anzin (Septembre 2000)', 'Reportage/R2000/Dampierre/Dampierre.htm', '');

// -- Etrangers 2000 --
startMenu('mDetailReportE00', true, 85, 0, 200, subM);
addItem('Amay (Belgique - Septembre 2000)', 'Reportage/R2000/Amay/amay.htm', '');
addItem('Eede (Neederland - Octobre 2000)', 'Reportage/R2000/Eede/eede.htm', '');
addItem('Binche (Belgique - Octobre 2000)', 'Reportage/R2000/Binche/binche.htm', '');
addItem('Bruges (Belgique - Août 2000)', 'Reportage/R2000/Semaine/semainedentelle.htm', '');

// ------------------- PORTRAIT -----------------

// Popout slightly left of its trigger, for fun...
startMenu('mPortrait', true, 0, 22, 140, subM);
// Instead of using spaces to indent, consider 'text-indent' in the stylesheet class perhaps?
addItem('Florence Quinette', 'Reportage/R2005/Florence/index.htm', '');
addItem('Pierre Nöel', 'Collection/Noel/index.htm', '');



// ------- MUSEE -----

// Popout slightly left of its trigger, for fun...
startMenu('mMusee', true, 0, 22, 85, subM);
// Instead of using spaces to indent, consider 'text-indent' in the stylesheet class perhaps?
addItem('Français', 'mMuseeF', 'sm:');
addItem('Etrangers', 'mMuseeE', 'sm:');

// ------- MUSEE Francais-----
startMenu('mMuseeF', true, 90, 0, 220, subM);
addItem('Le Musée d\'Arlanc', 'Musee/Arlanc/index.htm', '');
addItem('Le Centre d\'Enseignement de la Dentelle', 'Musee/LePuy/index.htm', '');
addItem('Le Musée de Retournac', 'Musee/Retournac/index.htm', '');
addItem('L\'Atelier Hoguet - Paris', 'Musee/Hoguet/index.htm', '');
addItem('Le Musée Crozatier - Le Puy en Velay', 'Musee/Crozatier/index.htm', '');
addItem('Le Musée de Normandie - Caen', 'Musee/Caen/index.htm', '');
addItem('Le Musée du Jacquard - Roubaix', 'Musee/Jacquard/index.htm', '');
addItem('La maison de la dentelle - Argentan', 'Musee/Argentan/index.htm', '');
addItem('Le Musée des coiffes - Fresnay', 'Musee/Fresnay/index.htm', '');
addItem('L\'Atelier Conservatoire du Filet - La Perrière', 'Musee/Perriere/index.htm', '');
addItem('La maison de la Broderie - Bourg le Roi', 'Musee/BourgleRoi/index.htm', '');
addItem('Le musée de la dentelle - Chantilly', 'Musee/Chantilly/index.htm', '');
addItem('Le musée des Beaux Arts - Alençon', 'Musee/Alencon/alencon1.htm', '');
addItem('L\'Hotel de la Dentelle - Brioude', 'Musee/Brioude/brioude1.htm', '');

// ------- MUSEE Etranger-----
startMenu('mMuseeE', true, 90, 0, 220, subM);
addItem('Le musée du Textile de Bocholt (Allemagne)', 'Musee/Bocholt/index.htm', '');
addItem('Le musée de Courtrai (Belgique)', 'Musee/Courtrai/index.htm', '');
addItem('Le musée de Burano (Italie)', 'Musee/Burano/index.htm', '');
addItem('La Coopérative de Cogne (Italie)', 'Musee/Cogne/index.htm', '');
addItem('Le Musée de Turhout (Belgique)', 'Musee/Turnhout/index.htm', '');
addItem('Le Musée de Vila do Conde (Portugal)', 'Musee/Vila/index.htm', '');

// ------------------- COLLECTIONS PRIVEES -----------------

// Popout slightly left of its trigger, for fun...
startMenu('mPrivee', true, 0, 22, 250, subM);
// Instead of using spaces to indent, consider 'text-indent' in the stylesheet class perhaps?
addItem('Lidia de Burano', 'Collection/Lidia/index.htm', '');
addItem('Les dentelles d\'or de Mme Bastiani', 'Collection/Bastiani/index.htm', '');
addItem('Les métiers d\'Elke', 'Collection/Elke/index.htm', '');
addItem('Les ombrelles d\'Anne-Marie', 'Collection/Ombrelle/index.htm', '');
addItem('Les dentelles anciennes de Mme Brune', 'Collection/Brune/index.htm', '');
addItem('Les coiffes Manchoises d\Arlette', 'Collection/Arlette/index.htm', '');
addItem('Les éventails de MCD', 'Collection/Eventail/index.htm', '');
addItem('Les dentelles anciennes de Claudette & Michel', 'Collection/Bouvot/index.htm', '');
addItem('Les polychromes de M le Délézir', 'Collection/Delezir/index.htm', '');
addItem('Les dentellières de Marie-Jeanne', 'Collection/Marie-Jeanne/mariejeanne.htm', '');
addItem('Les dentelles anciennes de Claudine', 'Collection/Claudine/claudine0.htm', '');
}

// *** (3) MENU EFFECTS AND ANIMATION ***
// Add a border to an all menus using a specified ItemStyle. The syntax is:
// addMenuBorder(menuObject, ItemStyle,
//  opacity of border, 'border colour', border width, 'padding colour', padding width);
// Opacity is a number from 0 to 100, or null for no filter, like the ItemStyles.

addMenuBorder(pMenu, window.subBlank, null, '#666666', 1, '#CCCCDD', 2);


// Apply a dropshadow to specific menus again. The syntax is similar, but later on you
// pass arrays [...] for each layer of the shadow you want. I've used two grey layers
// here, but you can use as many or as few as you want. The syntax for the layers is:

// [opacity, 'layer colour', X offset, Y offset, Width Difference, Height difference]

// Opacity is from 0 to 100 (or null for no filter), and the X/Y offsets are the
// distance in pixels from the menu's top left corner to that shadow layer's corner.
// The width/height differences are added or subtracted to the current menu size, for
// instance the first layer of this shadow is 4px narrower and shorter than the menu
// it is shadowing.

addDropShadow(pMenu, window.subM, [40,"#333333",6,6,-4,-4], [40,"#666666",4,4,0,0]);
addDropShadow(pMenu, window.subBlank, [40,"#333333",6,6,-4,-4], [40,"#666666",4,4,0,0]);

if (!isOp && navigator.userAgent.indexOf('rv:0.')==-1)
{
 pMenu.showMenu = new Function('mN','menuAnim(this, mN, 10)');
 pMenu.hideMenu = new Function('mN','menuAnim(this, mN, -10)');
}

if (!isNS4)
{
 // Write menus now in non-NS4 browsers, by calling the "Fast" mode .update(true) method.
 pMenu.update(true);
 //anotherMenu.update(true);
}
else
{
 // For Netscape 4, back up the old onload function and make a new one to update our menus.
 // This is the regular "Dynamic" mode menu update, it works in IE and NS6 too if required.
 var popOldOL = window.onload;
 window.onload = function()
 {
  if (popOldOL) popOldOL();
  pMenu.update();
  //anotherMenu.update();
 }
}


// Other events must be assigned, these are less complicated, just add or remove menu objects.

var nsWinW = window.innerWidth, nsWinH = window.innerHeight, popOldOR = window.onresize;
window.onresize = function()
{
 if (popOldOR) popOldOR();
 if (isNS4 && (nsWinW!=innerWidth || nsWinH!=innerHeight)) history.go(0);
 pMenu.position();
 //anotherMenu.position();
}

window.onscroll = function()
{
 pMenu.position();
 //anotherMenu.position();
}


// NS4 can't reliably capture clicks on layers, so here's a workaround.
if (isNS4)
{
 document.captureEvents(Event.CLICK);
 document.onclick = function(evt)
 {
  with (pMenu) if (overI) click(overM, overI);
  //with (anotherMenu) if (overI) click(overM, overI);
  return document.routeEvent(evt);
 }
}

// Activate the window.onscroll() event in non-Microsoft browsers.
if (!isIE || isOp)
{
 var nsPX=pageXOffset, nsPY=pageYOffset;
 setInterval('if (nsPX!=pageXOffset || nsPY!=pageYOffset) ' +
 '{ nsPX=pageXOffset; nsPY=pageYOffset; window.onscroll() }', 50);
}

function menuAnim(menuObj, menuName, dir)
{
 // The array index of the named menu (e.g. 'mFile') in the menu object (e.g. 'pMenu').
 var mD = menuObj.menu[menuName][0];
 // Add timer and counter variables to the menu data structure, we'll need them.
 if (!mD.timer) mD.timer = 0;
 if (!mD.counter) mD.counter = 0;

 with (mD)
 {
  // Stop any existing animation.
  clearTimeout(timer);

  // If the layer doesn't exist (cross-frame navigation) quit.
  if (!lyr || !lyr.ref) return;
  // Show the menu if that's what we're doing.
  if (dir>0) lyr.vis('visible');
  // Also raise showing layers above hiding ones.
  lyr.sty.zIndex = 1001 + dir;

  // Clip the visible area. Tweak this if you want to change direction/acceleration etc.
  lyr.clip(0, 0, menuW+2, (menuH+2)*Math.pow(Math.sin(Math.PI*counter/200),0.75) );
  // Remove clipping in NS6 on completion, seems to help old versions.
  if ((isDOM&&!isIE) && (counter>=100)) lyr.sty.clip='';

  // Increment the counter and if it hasn't reached the end (10 steps either way),
  // set the timer to call the show/hide function again in 40ms.
  counter += dir;
  if (counter>100) counter = 100;
  else if (counter<0) { counter = 0; lyr.vis('hidden') }
  else timer = setTimeout(menuObj.myName+'.'+(dir>0?'show':'hide')+'Menu("'+menuName+'")', 40);
 }
}

// Here's the alternative IE5.5+ filter animation function.
function menuFilterShow(menuObj, menuName, filterName)
{
 var mD = menuObj.menu[menuName][0];
 with (mD.lyr)
 {
  sty.filter = filterName;
  var f = ref.filters;
  if (f&&f.length&&f[0]) f[0].Apply();
  vis('visible');
  if (f&&f.length&&f[0]) f[0].Play();
 }
}

// BORDERS AND DROPSHADOWS:
function addMenuBorder(mObj, iS, alpha, bordCol, bordW, backCol, backW)
{
 // Loop through the menu array of that object, finding matching ItemStyles.
 for (var mN in mObj.menu)
 {
  var mR=mObj.menu[mN], dS='<div style="position:absolute; background:';
  if (mR[0].itemSty != iS) continue;
  // Loop through the items in that menu, move them down and to the right a bit.
  for (var mI=1; mI<mR.length; mI++)
  {
   mR[mI].iX += bordW+backW;
   mR[mI].iY += bordW+backW;
  }
  // Extend the total dimensions of menu accordingly.
  mW = mR[0].menuW += 2*(bordW+backW);
  mH = mR[0].menuH += 2*(bordW+backW);

  // Set the menu's extra content string with divs/layers underneath the items.
  if (isNS4) mR[0].extraHTML += '<layer bgcolor="'+bordCol+'" left="0" top="0" width="'+mW+
   '" height="'+mH+'" z-index="980"><layer bgcolor="'+backCol+'" left="'+bordW+'" top="'+
   bordW+'" width="'+(mW-2*bordW)+'" height="'+(mH-2*bordW)+'" z-index="990"></layer></layer>';
  else mR[0].extraHTML += dS+bordCol+'; left:0px; top:0px; width:'+mW+'px; height:'+mH+
   'px; z-index:980; '+(alpha!=null?'filter:alpha(opacity='+alpha+'); -moz-opacity:'+(alpha/100):'')+
   '">'+dS+backCol+'; left:'+bordW+'px; top:'+bordW+'px; width:'+(mW-2*bordW)+'px; height:'+
   (mH-2*bordW)+'px; z-index:990"></div></div>';
 }
}


function addDropShadow(mObj, iS)
{
 // Pretty similar to the one above, just loops through list of extra parameters making
 // dropshadow layers (from arrays) and extending the menu dimensions to suit.
 for (var mN in mObj.menu)
 {
  var a=arguments, mD=mObj.menu[mN][0], addW=addH=0;
  if (mD.itemSty != iS) continue;
  for (var shad=2; shad<a.length; shad++)
  {
   var s = a[shad];
   if (isNS4) mD.extraHTML += '<layer bgcolor="'+s[1]+'" left="'+s[2]+'" top="'+s[3]+'" width="'+
    (mD.menuW+s[4])+'" height="'+(mD.menuH+s[5])+'" z-index="'+(arguments.length-shad)+'"></layer>';
   else mD.extraHTML += '<div style="position:absolute; background:'+s[1]+'; left:'+s[2]+
    'px; top:'+s[3]+'px; width:'+(mD.menuW+s[4])+'px; height:'+(mD.menuH+s[5])+'px; z-index:'+
    (a.length-shad)+'; '+(s[0]!=null?'filter:alpha(opacity='+s[0]+'); -moz-opacity:'+(s[0]/100):'')+
    '"></div>';
   addW=Math.max(addW, s[2]+s[4]);
   addH=Math.max(addH, s[3]+s[5]);
  }
  mD.menuW+=addW; mD.menuH+=addH;
 }
}