// Cascading Popup Menus v5.2 - Single Frame Menu script.

// by Angus Turnbull  
// Licenced by Projectaline, Marco Goetschi (www.dot-com.ch) for www.sunneziel.ch



// '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(18, 0, '', 0, 0, 'FFF5E0', 'FFE6AF', 'lowText', 'highText',
'', '', null, null, 'hand', 'default');

// The 'sub Menu' items: these have popout indicators of "Greater Than" signs ">" 15px from their
// right edge, and CSS borders. Text class also changes on mouseover.
var subM = new ItemStyle(18, 0, '>', 0, 0, '#FFF5E0', '#FFE6AF', 'lowText2', 'highText2',
 'itemBorderBlank2', 'itemBorder2', 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, 1, '>', -15, 3, '#FF0033', '#FF0033', 'lowText2', 'highText2',
 'itemBorderBlank2', 'itemBorder2', 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, '>', -15, 2, '#FF0033', '#FF0033', 'buttonText', 'buttonHover',
 'buttonBorder', 'buttonBorderOver', 80, 95, 'crosshair', 'default');





// Create a PopupMenu() object, and pass its own name so it can reference itself later on.
// We also use a 'with' block to work with its properties and functions below.

var pMenu = new PopupMenu('pMenu');
with (pMenu)
{

// The example 'root' menu is horizontal (false), positioned at (x = 10, y = 0), is 17px high,
// and items use the colours and dimensions in the 'hBar' ItemStyle defined above by default.
// If you want a vertical menu, change "false" to "true", and raise 17 to about 100 for the width.
// Most of these are 'sm:' items popping out submenus, except the last 'js:' JavaScript command to
// pop open a new window. It also has its own ItemStyle and width specified, longer than the rest.

startMenu('root',true, 89, 212, 100, hBar);
addItem('<img src="http://www.sunneziel.ch/bilder/menuepfeil.gif" width="15" height="18" border="0" align="absbottom">unser Haus', 'mhaus', 'sm:');
addItem('<img src="http://www.sunneziel.ch/bilder/menuepfeil.gif" width="15" height="18" border="0" align="absbottom">Rundgang', 'mrundgang', 'sm:');
//addItem('<img src="http://www.sunneziel.ch/bilder/menuepfeil.gif" width="15" height="18" border="0" align="absbottom">Aktuell', 'maktuell', 'sm:');
addItem('<img src="http://www.sunneziel.ch/bilder/menuepfeil.gif" width="15" height="18" border="0" align="absbottom">Dokumente', 'mdokumente', 'sm:');
addItem('<img src="http://www.sunneziel.ch/bilder/menuepfeil.gif" width="15" height="18" border="0" align="absbottom">Siesta', 'mSiesta', 'sm:');
addItem('<img src="http://www.sunneziel.ch/bilder/menuepfeil.gif" width="15" height="18" border="0" align="absbottom">Kontakt', 'mkontakt', 'sm:');
addItem('<img src="http://www.sunneziel.ch/bilder/menuepfeil.gif" width="15" height="18" border="0" align="absbottom">Links', 'mlinks', 'sm:');

//addItem('&nbsp;Executive', 'http://www.proavi8or.com/pages/craig.html', '');
//addItem('&nbsp; Visit My Site', 'window.open("http://www.twinhelix.com")', 'js:', hBar, 80);


// This is a vertical menu positioned 0px across and 22px down from its trigger, and is 80px wide.
// The URLs are set to # here, be sure to replace them with your path/file names or JS functions!
// Also note how the types are '', indicating these links open in the current frame/window.
// The last item here changes its text on mouseover (^ separates the two strings), links to my site,
// and has a custom ItemStyle and length specified so it's longer than the rest.


startMenu('mhaus', true, -86, 0, 98, subM);
addItem('&nbsp;Gründung +<br>&nbsp;Zweck', 'http://www.sunneziel.ch/seiten/gruendung.php', '', subM, 33);
addItem('&nbsp;Trägerschaft', 'http://www.sunneziel.ch/seiten/traegerschaft.php', '');
addItem('&nbsp;Leitung', 'http://www.sunneziel.ch/seiten/leitung.php', '');
addItem('&nbsp;Leitbild', 'http://www.sunneziel.ch/seiten/leitbild.php', '');
addItem('&nbsp;Allg. Infos', 'http://www.sunneziel.ch/seiten/infos.php', '');

startMenu('mrundgang', true, -86, 0, 98, subM);
addItem('&nbsp;Altersheim', 'http://www.sunneziel.ch/seiten/rundgang_altersheim.php', '');
addItem('&nbsp;Pflegeheim', 'http://www.sunneziel.ch/seiten/rundgang_pflegeheim.php', '');
addItem('&nbsp;Rosegarte', 'http://www.sunneziel.ch/seiten/rundgang_rosegarte.php', '');
addItem('&nbsp;Siesta', 'http://www.sunneziel.ch/seiten/rundgang_siesta.php', '');

//startMenu('maktuell', true, -86, 0, 98, subM);
//addItem('&nbsp;Veranstaltungen', 'http://www.sunneziel.ch/seiten/veranstaltungen.php', '');
//addItem('&nbsp;Monatsplan', 'http://www.sunneziel.ch/seiten/monatsplan.php', '');
//addItem('&nbsp;Freie Betten', 'http://www.sunneziel.ch/seiten/betten.php', '');
//addItem('&nbsp;Stellenangebote', 'http://www.sunneziel.ch/seiten/stellen.php', '');

startMenu('mdokumente', true, -86, 0, 98, subM);
addItem('&nbsp;Taxordnung<br>&nbsp;Altersheim', 'http://www.sunneziel.ch/seiten/taxordnung-ah.php', '', subM, 33);
addItem('&nbsp;Taxordnung<br>&nbsp;Pflegeheim', 'http://www.sunneziel.ch/seiten/taxordnung-ph.php', '', subM, 33);
addItem('&nbsp;Taxordnung<br>&nbsp;Rosengarte', 'http://www.sunneziel.ch/seiten/taxordnung-rg.php', '', subM, 33);
addItem('&nbsp;Taxordnung<br>&nbsp;Siesta', 'http://www.sunneziel.ch/seiten/taxordnung-siesta.php', '', subM, 33);
addItem('&nbsp;Taxordnung<br>&nbsp;Feriengäste', 'http://www.sunneziel.ch/seiten/taxordnung-ah-ferien.php', '', subM, 33);
addItem('&nbsp;Download', 'http://www.sunneziel.ch/seiten/download.php', '');

startMenu('mSiesta', true, -86, 0, 98, subM);
addItem('&nbsp;Allgemein', 'http://www.sunneziel.ch/seiten/siesta-allgemein.php', '');
addItem('&nbsp;Wohnungen', 'http://www.sunneziel.ch/seiten/siesta-wohnungen.php', '');
//addItem('&nbsp;Fotos Neubau', 'window.open("http://www.sunneziel.ch.vu/")', 'js:');
addItem('&nbsp;Angebot', 'http://www.sunneziel.ch/seiten/siesta-angebot.php', '');
addItem('&nbsp;Lage', 'http://www.sunneziel.ch/seiten/siesta-lage.php', '');
addItem('&nbsp;Kontakt', 'http://www.sunneziel.ch/seiten/siesta-kontakt.php', '');

startMenu('mkontakt', true, -86, 0, 98, subM);
addItem('&nbsp;Adresse', 'http://www.sunneziel.ch/seiten/adresse.php', '');
addItem('&nbsp;Feedback', 'http://www.sunneziel.ch/seiten/feedback.php', '');
addItem('&nbsp;Mail an<br>&nbsp;Bewohner/in', 'http://www.sunneziel.ch/seiten/pensmail.php', '', subM, 33);

startMenu('mlinks', true, -86, 0, 98, subM);
addItem('&nbsp;Links', 'http://www.sunneziel.ch/seiten/links.php', '');






// Leftwards popout with a negative x and y relative to its trigger. The item has a custom height.

startMenu('mAbout', true, -85, -18, 80, subM);
addItem('Leftwards!<br>And up!', '#', '', subM, 40);



// You can also customise hide or show delays (in milliseconds) to the menus. Defaults are:
//showDelay = 0;
//hideDelay = 500;
// Specify hideDelay as zero if you want to disable autohiding, and showDelay as a couple of
// hundred if you don't want the menus showing instantaneously when moused over.
//
// You can assign 'oncreate' events to specific menus. By default, the script has only one for
// the root menu that shows it when it is created. You may wish to change it to something like the
// following, which uses the animation function to show the menu, or delay its show altogether.
//menu.root[0].oncreate = function() { pMenu.doVis('root', true) }

// End of 'with (pMenu)' block. That's one menu object created!

}



// CREATE ANOTHER MENU OBJECT here if you want multiple menus on a page, or you can just
// duplicate this entire file and rename 'pMenu' to something else.
// Every menu object MUST have a menu named 'root' in it, as that's always visible.

//var anotherMenu = new PopupMenu('anotherMenu');
//with (anotherMenu)
//{
// startMenu('root', .....);
// ... make menus here ...
//}









// ******************** MENU EFFECTS ********************
//
// Now you've created a basic menu object, you can add optional effects like borders and
// shadows to specific menus. You can remove this section entirely if you want, the
// functions called are found at the bottom of this file.



// Border: Added to all menus in a named object 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 solid colour (just like the ItemStyles).

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



// Dropshadow: added to specific ItemStyles 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 to make it solid), 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]);



// Animation: We add this to the 'pMenu' menu object for supported browsers.
// IE4/Mac and Opera 5/6 don't support clipping, and Mozilla versions prior to 1.x (such as
// Netscape 6) are too slow to support it, so I'm doing some browser sniffing.
// If you don't want animation, delete this entirely, and the menus will act normally.
// Change the speed if you want... it's the last number, between -100 and 100, and is
// define???????9??A?»??
d as the percentage the animation moves each frame (defaults are 10 and 15).

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

 // Alternatively: try the IE5.5+/Windows filters. If you are doing this make sure that you either
 // enable translucency in the ItemStyles or disable it in the dropshadows otherwise it looks weird.
 // Comment the above two lines out and uncomment this:
 //pMenu.showMenu = function(mN)
 //{ menuFilterShow(this, mN, 'progid:DXImageTransform.Microsoft.GradientWipe(' +
 //   'GradientSize=0.75,duration=0.5,wipestyle=1,motion=forward)') }
 
 // There's a good list of transitions and documentation available from:
 //  http://msdn.microsoft.com/workshop/author/filter/reference/reference.asp
 // for a whole lot more PowerPoint-like effects you can use.

 // Add animation to other menu objects like this...
 //anotherMenu.showMenu = new Function('mN','menuAnim(this, mN, 10)');
 //anotherMenu.hideMenu = new Function('mN','menuAnim(this, mN, -10)');
}



// Custom mouse events (for things like click handler, status messages, select box hiding...):
//
// If you want, you can assign functions to handle menu mouse events like mouse over/out/click.
// 'with (this)' means use the properties of the menu object, and they're passed the current
// menu name (mN) and item number (iN) you can use to determine the source of the event.
// To uncomment and activate, delete the /* and */ at the start and end.

/*
pMenu.onclick = function(mN, iN) { with (this)
{
 // Do actions depending on the item that the mouse was over at the time of the click.
 // You may with to use nested IFs or 'switch' statements etc. if you're familiar with JS.

 if (mN == 'root')
 {
  if (iN == 1) window.status = 'Congratulations, you\'ve mastered clicking!';
  if (iN == 2) location.href = 'edit.ht???????9??A?»??
ml';
  if (iN == 3) location.href = 'help.html';
  // For frameset navigation, use this syntax:
  //targetFrameName.location.href = 'blah.html';
 }
}}

// Set the status message to the URL if the 'action type' is nothing, and clear on mouseout.
// By now, you either have my 'JS Object Browser' script from my site or you need it... try
// embedding in an IFrame and typing 'pMenu' into its Go To field to see the menu internals.
pMenu.onmouseover = function(mN, iN) { with (this)
{
 with (menu[mN][iN]) if (type!='sm:' && type!='js:') window.status = href;
}}
pMenu.onmouseout = function() { window.status = '' }
*/



// Custom item arrangement: rearrange items within your menu, or alter overall menu size.
// Individual items have .iX and .iY which are positions and .iW and .iH which are dimensions.
// I recommend doing this *before* calling the border or shadow commands too :).

//with (pMenu.menu)
//{
// mFile[0].menuW += 20;
// mFile[0].menuH += 20;
// mFile[1].iX += 5;
// mFile[2].iX += 2;
// mFile[2].iW -= 2;
// mFile[3].iX += 5;
// mFile[4].iX += 10;
// mFile[4].iW += 10;
// mFile[4].iY += 3;
//}








// FUNCTIONS CALLED BY THE EFFECTS SECTION: Can be deleted if you're not using them.
// Alternatively, if you're using several menu data files, you may want to move them to the
// "core" script file.


// This is the "positioning from page anchors" code used by the advanced positioning expressions.
page.elmPos=function(e,p)
{
 var x=0,y=0,w=p?p:this.win;
 e=e?(e.substr?(isNS4?w.document.anchors[e]:getRef(e,w)):e):p;
 if(isNS4){if(e&&(e!=p)){x=e.x;y=e.y};if(p){x+=p.pageX;y+=p.pageY}}
 else while(e){x+=e.offsetLeft;y+=e.offsetTop;e=e.offsetParent}
 return{x:x,y:y};
}



// Animation:
//
// Each menu object you create by default shows and hides its menus instantaneously.
// However you can override this behaviour with custom show/hide animation routines,
// as we have done in the "Menu Effects" section. Feel free to edit this, or delete
// this entire function if you're not using it. Basically, make functions to handle
// menuObj.showAnim() and .hideAnim(), both of which are passed menu names.
//
// Customisers: My lyr.clip() command gets passed the parameters (x1, y1, x2, y2)
// so you might want to adjust the direction etc. Oh, and I'm adding 2 to the dimensions
// to be safe due to different box models in some browsers.
// Another idea: add some if/thens to test for specific menu names...?

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 litNow() array doesn't show this menu as lit, and we're still showing it,
  // force a quick hide (this stops miscellaneous timer errors).
  //if (dir>0 && !menuObj.litNow[menuObj.menu[menuName][0].parentMenu]) dir = -100;

  // If the layer doesn't exist (cross-frame navigation) quit.
  if (!lyr || !lyr.ref) return;
  // This next line is not strictly necessary, but it stops the one-in-a-hundred menu that
  // shows and doesn't hide on very quick mouseovers.
  if (!visNow && dir>0) dir = 0-dir;
  // 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;

  // Alpha fade in IE5.5+. Mozilla's opacity isn't well suited to this as it's an inheritable
  // property rather than a block-level filter, and it's slow, but uncomment and try it perhaps.
  // WARNING: This looks funny if you're mixing opaque and translucent items e.g. solid menus
  // with dropshadows. If you're going to use it, either disable dropshadows or set the opacity
  // values for your items to numbers instead of null.
  //if (isIE && window.createPopup) lyr.alpha(counter&&(counter<100) ? counter : null);

  // Clip the visible area. Tweak this if you want to change direction/acceleration etc.
  // As you can see, the visibile clipping region is from (0, 0) which is the top left corner,
  // to the right edge of the menu 'menuW+2', and a complicated formula that sets the bottom
  // edge of the clipping region based on the 'counter' variable so it accelerates.
  lyr.clip(0, 0, menuW+2, (menuH+2)*Math.pow(Math.sin(Math.PI*counter/200),0.75) );

  // Increment the counter and if it hasn't reached the end (counter is 0% or 100%),
  // set the timer to call the showMenu/hideMenu function again in 40ms to contine the animation.
  // Note that we hide the menu div on animation end in that direction.
  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, which is unused by default.
function menuFilterShow(menuObj, menuName, filterName)
{
 var mD = menuObj.menu[menuName][0];
 with (mD.lyr)
 {
  sty.filter = filterName;
  var f = ref.filters, doF = (f&&f.length&&f[0]);
  if (doF) f[0].Apply();
  vis('visible');
  if (doF) f[0].Play();
 }
}



// Borders and Dropshadows:
//
// Here's the menu border and dropshadow functions we call above. Edit ot delete if you're
// not using them. Basically, they assign a string to pMenu.menu.menuName[0].extraHTML, which
// is written to the document with the menus as they are created -- the string can contain
// anything you want, really. They also adjust the menu dimensions and item positions
// to suit. Dig out the Object Browser script and open up "pMenu" for more info.

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;
 }
}