Hiermenus Go Forth, XXVII - DHTML Lab | 9

Hiermenus Go Forth, XXVII:
Version 4.2.1 - The Complete Script (Full-Window)

The external HM JavaScript file for Netscape Navigator 4.x (HM_ScriptNS4.js).

/*HM_ScriptNS4.js
* by Peter Belesis. v4.2.1 020219
* Copyright (c) 2002 Peter Belesis. All Rights Reserved.
* Originally published and documented at https://www.dhtmlab.com/
* Available solely from INT Media Group. Incorporated under exclusive license.
* Contact [email protected] for more information.
*/
HM_a_Parameters = [
    ["MenuWidth",          150,        "number"],
    ["FontFamily",         "Arial,sans-serif"],
    ["FontSize",           10,        "number"],
    ["FontBold",           false,    "boolean"],
    ["FontItalic",         false,    "boolean"],
    ["FontColor",          "black"],
    ["FontColorOver",      "white"],
    ["BGColor",            "white"],
    ["BGColorOver",        "black"],
    ["ItemPadding",        3,        "number"],
    ["BorderWidth",        2,        "number"],
    ["BorderColor",        "red"],
    ["SeparatorSize",      1,        "number"],
    ["ImageSrc",           "HM_More_black_right.gif"],
    ["ImageSrcOver",       null],
    ["ImageSrcLeft",       "HM_More_black_left.gif"],
    ["ImageSrcLeftOver",   null],
    ["ImageSize",          5,        "number"],
    ["ImageHorizSpace",    0,        "number"],
    ["ImageVertSpace",     0,        "number"],
    ["KeepHilite",         false,    "boolean"],
    ["ClickStart",         false,    "boolean"],
    ["ClickKill",          true,    "boolean"],
    ["ChildOverlap",       20,        "number"],
    ["ChildOffset",        10,        "number"],
    ["ChildPerCentOver",   null,    "number"],
    ["TopSecondsVisible",  .5,        "number"],
    ["ChildSecondsVisible",.3,        "number"],
    ["StatusDisplayBuild", 1,        "boolean"],
    ["StatusDisplayLink",  1,        "boolean"],
    ["UponDisplay",        null,    "delayed"],
    ["UponHide",           null,    "delayed"],
    ["RightToLeft",        false,    "boolean"],
    ["CreateTopOnly",      0,        "boolean"],
    ["ShowLinkCursor",     false,    "boolean"],
    ["NSFontOver",           true,    "boolean"],

//4.2
    ["ScrollEnabled",      false,    "boolean"],
    ["ScrollBarHeight",    14,      "number"],
    ["ScrollBarColor",     "lightgrey"],
    ["ScrollImgSrcTop",    "HM_More_black_top.gif"],
    ["ScrollImgSrcBot",    "HM_More_black_bot.gif"],
    ["ScrollImgWidth",     9,       "number"],
    ["ScrollImgHeight",    5,       "number"]
]
HM_MenuIDPrefix = "HM_Menu";
HM_ItemIDPrefix = "HM_Item";
HM_ArrayIDPrefix = "HM_Array";
Function.prototype.isFunction = true;
Function.prototype.isString = false;
String.prototype.isFunction = false;
String.prototype.isString = true;
String.prototype.isBoolean = false;
String.prototype.isNumber = false;
Number.prototype.isString = false;
Number.prototype.isFunction = false;
Number.prototype.isBoolean = false;
Number.prototype.isNumber = true;
Boolean.prototype.isString = false;
Boolean.prototype.isFunction = false;
Boolean.prototype.isBoolean = true;
Boolean.prototype.isNumber = false;
Array.prototype.itemValidation = false;
Array.prototype.isArray = true;
function HM_f_AssignParameters(paramarray){
    var ParamName = paramarray[0];
    var DefaultValue = paramarray[1];
    var FullParamName = "HM_" + ParamName;
    if (typeof eval("window.HM_PG_" + ParamName) == "undefined") {
        if (typeof eval("window.HM_GL_" + ParamName) == "undefined") {
            eval(FullParamName + "= DefaultValue");
        }
        else {
            eval(FullParamName + "= HM_GL_" + ParamName);
        }
    }
    else {
        eval(FullParamName + "= HM_PG_" + ParamName);
    }
    paramarray[0] = FullParamName;
    paramarray[1] = eval(FullParamName);
}
function HM_f_EvalParameters(valuenew,valueold,valuetype){
    var TestString, ParPosition;
    if(typeof valuenew == "undefined" || valuenew == null || (valuenew.isString && valuenew.length == 0)){
        return valueold;
    }
    if(valuetype != "delayed"){
        while(valuenew.isString) {
            ParPosition = valuenew.indexOf("(");
            if(ParPosition !=-1) {
                TestString = "window." + valuenew.substr(0,ParPosition);
                if (typeof eval(TestString) != "undefined" && eval(TestString).isFunction) {
                    valuenew = eval(valuenew);
                }
            }
            else break
        }
    }
    while(valuenew.isFunction) {valuenew = valuenew()}
    switch(valuetype){    
        case "number":
            while (valuenew.isString) {valuenew = eval(valuenew)}
            break;
        case "boolean":
            while (!valuenew.isBoolean) {
                valuenew = (valuenew.isNumber) ? valuenew ? true : false : eval(valuenew);
            }
            break;
    }
    return valuenew;
}
for (i=0;i<HM_a_Parameters.length;i++) {
    HM_f_AssignParameters(HM_a_Parameters[i]);
    eval(HM_a_Parameters[i][0] + "= HM_f_EvalParameters("+ HM_a_Parameters[i][0] +",null,HM_a_Parameters[i][2])")
}
HM_ChildPerCentOver = (isNaN(parseFloat(HM_ChildPerCentOver))) ? null : parseFloat(HM_ChildPerCentOver)/100;
HM_ChildMilliSecondsVisible = HM_ChildSecondsVisible * 1000;
function HM_f_ValidateArray(arrayname){
    var MenuArrayIsValid = false;

//4.2
//    var MenuArrayIsObject = (typeof eval("window." + arrayname) == "object");
    var MenuArrayIsObject = (typeof window[arrayname] == "object");
    if(MenuArrayIsObject) {
//4.2
//        var TheMenuArray = eval(arrayname);
        var TheMenuArray = window[arrayname];
        if(TheMenuArray.isArray && TheMenuArray.length > 1) {
            MenuArrayIsValid = true;
            if(!TheMenuArray.itemValidation) {
                while((typeof TheMenuArray[TheMenuArray.length-1] != "object") || (!TheMenuArray[TheMenuArray.length-1].isArray)) {
                    TheMenuArray.length--;
                }
                TheMenuArray.itemValidation = true;
            }
        }
    }
    return MenuArrayIsValid;
}
if(!window.HM_a_TreesToBuild) {
    HM_a_TreesToBuild = [];
    for(i=1; i<100; i++){
        if(HM_f_ValidateArray(HM_ArrayIDPrefix + i)) HM_a_TreesToBuild[HM_a_TreesToBuild.length] = i;
    }
}
HM_CurrentArray = null;
HM_CurrentTree  = null;
HM_CurrentMenu  = null;
HM_CurrentItem  = null;
HM_a_TopMenus = [];
HM_AreLoaded = false;
HM_AreCreated = false;
HM_BeingCreated = false;
HM_UserOverMenu = false;
HM_HideAllTimer = null;
HM_TotalTrees = 0;
HM_ZIndex = 5000;

//4.2
HM_ScrollTimer = null;
function HM_f_Initialize() {
    if(HM_AreCreated) {
        for(var i=0; i<HM_TotalTrees; i++) {
            var TopMenu = HM_a_TopMenus[i];
            clearTimeout(TopMenu.hideTimer);
            TopMenu.hideTimer = null;
        }
        clearTimeout(HM_HideAllTimer);
    }
    HM_AreCreated = false;
    HM_BeingCreated = false;
    HM_UserOverMenu = false;
    HM_CurrentMenu = null;
    HM_HideAllTimer = null;
    HM_TotalTrees = 0;
    HM_a_TopMenus = [];
}
Layer.prototype.showIt = HM_f_ShowIt;
Layer.prototype.keepInWindow = HM_f_KeepInWindow;
Layer.prototype.hideTree = HM_f_HideTree
Layer.prototype.hideParents = HM_f_HideParents;
Layer.prototype.hideChildren = HM_f_HideChildren;
Layer.prototype.hideTop = HM_f_HideTop;
Layer.prototype.hideSelf = HM_f_HideSelf;
Layer.prototype.hasChildVisible = false;
Layer.prototype.isOn = false;
Layer.prototype.hideTimer = null;
Layer.prototype.currentItem = null;
Layer.prototype.itemSetup = HM_f_ItemSetup;
Layer.prototype.itemCount = 0;
Layer.prototype.child = null;
Layer.prototype.isWritten = false;

//4.2
Layer.prototype.scrollbarsCreated = false;
Layer.prototype.enableScrolling = HM_f_EnableScrolling;
Layer.prototype.createScrollbars = HM_f_CreateScrollbars;
Layer.prototype.checkScroll = HM_f_CheckScroll;
Layer.prototype.startScroll = HM_f_StartScroll;
HM_NS_OrigWidth  = window.innerWidth;
HM_NS_OrigHeight = window.innerHeight;
window.onresize = function (){
    if (window.innerWidth == HM_NS_OrigWidth && window.innerHeight == HM_NS_OrigHeight) return;
    HM_f_Initialize();
    window.history.go(0);
}
function HM_f_StartIt() {
    if(HM_AreCreated) return;
    HM_AreLoaded = true;
    if (HM_ClickKill) {
        HM_f_OtherMouseDown = (document.onmousedown) ? document.onmousedown :  new Function;
        document.captureEvents(Event.MOUSEDOWN);

//4.2
   //   document.onmousedown = function(){HM_f_PageClick();HM_f_OtherMouseDown()}
        document.onmousedown = function(e){var retVal = routeEvent(e);HM_f_PageClick();HM_f_OtherMouseDown();return !(retVal==false)}

    }
    else {
        HM_TopMilliSecondsVisible = HM_TopSecondsVisible * 1000;
    }
    HM_f_MakeTrees();
    HM_f_OtherOnLoad();
}
function HM_f_MakeTrees(){
    HM_BeingCreated = true;
    var TreeParams = null;
    var TreeHasChildren = false;
    var ItemArray = null;
    for(var t=0; t<HM_a_TreesToBuild.length; t++) {
        if(!HM_f_ValidateArray(HM_ArrayIDPrefix + HM_a_TreesToBuild[t])) continue;
//4.2
//        HM_CurrentArray = eval(HM_ArrayIDPrefix + HM_a_TreesToBuild[t]);
        HM_CurrentArray = window[HM_ArrayIDPrefix + HM_a_TreesToBuild[t]];
        TreeParams = HM_CurrentArray[0];
        TreeHasChildren = false;
        for(var i=1; i<HM_CurrentArray.length; i++) {
            ItemArray = HM_CurrentArray[i];
            if(ItemArray[ItemArray.length-1]) {TreeHasChildren = true; break}
        }
        HM_CurrentTree = {
            MenuWidth        : MenuWidth = HM_f_EvalParameters(TreeParams[0],HM_MenuWidth,"number"),
            MenuLeft         : MenuLeft = HM_f_EvalParameters(TreeParams[1],null,"delayed"),
            MenuTop          : MenuTop = HM_f_EvalParameters(TreeParams[2],null,"delayed"),
            ItemWidth        : ItemWidth = MenuWidth - (HM_BorderWidth*2),
            ItemTextWidth    : TreeHasChildren ? (ItemWidth - (HM_ImageSize + HM_ImageHorizSpace + HM_ItemPadding)) : ItemWidth,
            FontColor        : FontColor = HM_f_EvalParameters(TreeParams[3],HM_FontColor),
            FontColorOver    : FontColorOver = HM_f_EvalParameters(TreeParams[4],HM_FontColorOver),
            BGColor          : HM_f_EvalParameters(TreeParams[5],HM_BGColor),
            BGColorOver      : HM_f_EvalParameters(TreeParams[6],HM_BGColorOver),
            BorderColor      : HM_f_EvalParameters(TreeParams[7],HM_BorderColor),
            TopIsPermanent   : ((MenuLeft == null) || (MenuTop == null)) ? false : HM_f_EvalParameters(TreeParams[9],false,"boolean"),
            TopIsHorizontal  : TopIsHorizontal = HM_f_EvalParameters(TreeParams[10],false,"boolean"),
            TreeIsHorizontal : TreeHasChildren ? HM_f_EvalParameters(TreeParams[11],false,"boolean") : false,
            PositionUnder    : (!TopIsHorizontal || !TreeHasChildren) ? false : HM_f_EvalParameters(TreeParams[12],false,"boolean"),
            TopImageShow     : TreeHasChildren ? HM_f_EvalParameters(TreeParams[13],true,"boolean")  : false,
            TreeImageShow    : TreeHasChildren ? HM_f_EvalParameters(TreeParams[14],true,"boolean")  : false,
            UponDisplay      : HM_f_EvalParameters(TreeParams[15],HM_UponDisplay,"delayed"),
            UponHide         : HM_f_EvalParameters(TreeParams[16],HM_UponHide,"delayed"),
            RightToLeft      : HM_f_EvalParameters(TreeParams[17],HM_RightToLeft,"boolean"),
            NSFontOver         : HM_NSFontOver ? (FontColor != FontColorOver) : false,
            ClickStart         : HM_f_EvalParameters(TreeParams[18],HM_ClickStart,"boolean"),
            TopIsVariableWidth  : HM_f_EvalParameters(TreeParams[19],false,"boolean"),
            TreeIsVariableWidth  : HM_f_EvalParameters(TreeParams[20],false,"boolean")
        }
        HM_CurrentMenu = null;
        HM_f_MakeMenu(HM_a_TreesToBuild[t]);
        HM_a_TopMenus[HM_TotalTrees] = HM_CurrentTree.treeParent;
        HM_TotalTrees++;
        if(HM_CurrentTree.TopIsPermanent){
            with(HM_CurrentTree.treeParent) {
                moveTo(eval(HM_CurrentTree.MenuLeft),eval(HM_CurrentTree.MenuTop));
                zIndex = HM_ZIndex;
                visibility = "show";
            }
        }
    }
    if(HM_StatusDisplayBuild) status = HM_TotalTrees + " Hierarchical Menu Trees Created";
    HM_AreCreated = true;
    HM_BeingCreated = false;
}
function HM_f_GetItemHtmlStr(arraystring){
    var TempString = arraystring;
    if (HM_FontBold) TempString = TempString.bold();
    if (HM_FontItalic) TempString = TempString.italics();
    TempString = "<FONT FACE='" + HM_FontFamily + "' POINT-SIZE=" + HM_FontSize + ">" + TempString + "</FONT>";
    var TempStringOver = TempString.fontcolor(HM_CurrentTree.FontColorOver);
    TempString = TempString.fontcolor(HM_CurrentTree.FontColor);
    return [TempString,TempStringOver];
}
function HM_f_MakeMenu(menucount) {
    if(!HM_f_ValidateArray(HM_ArrayIDPrefix + menucount)) return false;
//4.2
//    HM_CurrentArray = eval(HM_ArrayIDPrefix + menucount);
    HM_CurrentArray = window[HM_ArrayIDPrefix + menucount];
//    NewMenu = eval("window." + HM_MenuIDPrefix + menucount);
    NewMenu = window[HM_MenuIDPrefix + menucount];
    if(!NewMenu) {

//4.2
//        eval(HM_MenuIDPrefix + menucount + " = new Layer(HM_CurrentTree.MenuWidth,window)");

        NewMenu = window[HM_MenuIDPrefix + menucount] = new Layer(HM_CurrentTree.MenuWidth,window);
//        NewMenu = eval(HM_MenuIDPrefix + menucount);

        if(HM_ScrollEnabled) {
            NewMenu.scrollParent = new Layer(HM_CurrentTree.MenuWidth,NewMenu);
            NewMenu.scrollParent.visibility = "inherit";
        }
        else {
            NewMenu.scrollParent = NewMenu;
        }
    
        if(HM_CurrentMenu) {
            NewMenu.parentMenu = HM_CurrentMenu;
            NewMenu.parentItem = HM_CurrentItem;
            NewMenu.parentItem.child = NewMenu;
            NewMenu.hasParent = true;
            NewMenu.isHorizontal = HM_CurrentTree.TreeIsHorizontal;
            NewMenu.showImage = HM_CurrentTree.TreeImageShow;
        }
        else {
            NewMenu.isHorizontal = HM_CurrentTree.TopIsHorizontal;
            NewMenu.showImage = HM_CurrentTree.TopImageShow;
        }
    
        HM_CurrentMenu = NewMenu;
        HM_CurrentMenu.count = menucount;
        HM_CurrentMenu.tree  = HM_CurrentTree;
        HM_CurrentMenu.array = HM_CurrentArray;
        HM_CurrentMenu.maxItems = HM_CurrentArray.length - 1;
        HM_CurrentMenu.bgColor = HM_CurrentTree.BorderColor;
        HM_CurrentMenu.IsVariableWidth = ((HM_CurrentMenu.hasParent && HM_CurrentTree.TreeIsVariableWidth) || (!HM_CurrentMenu.hasParent && HM_CurrentTree.TopIsVariableWidth));
        HM_CurrentMenu.onmouseover = HM_f_MenuOver;
        HM_CurrentMenu.onmouseout = HM_f_MenuOut;
        HM_CurrentMenu.moveTo(0,0);
    }
    if(!HM_CurrentTree.treeParent) HM_CurrentTree.treeParent = HM_CurrentTree.startChild = HM_CurrentMenu;
    while (HM_CurrentMenu.itemCount < HM_CurrentMenu.maxItems) {
        HM_CurrentMenu.itemCount++;
//4.2
//        HM_CurrentItem = eval("window." + HM_ItemIDPrefix + menucount + "_" + HM_CurrentMenu.itemCount);
        HM_CurrentItem = window[HM_ItemIDPrefix + menucount + "_" + HM_CurrentMenu.itemCount];
        if(!HM_CurrentItem) {
//4.2
//            eval(HM_ItemIDPrefix + menucount + "_" + HM_CurrentMenu.itemCount + " = new Layer(HM_CurrentTree.ItemWidth - (HM_ItemPadding*2),HM_CurrentMenu)")
            if(HM_StatusDisplayBuild) status = "Creating Hierarchical Menus: " + menucount + " / " + HM_CurrentMenu.itemCount;

//4.2
//            HM_CurrentItem = eval(HM_ItemIDPrefix + menucount + "_" + HM_CurrentMenu.itemCount);
            HM_CurrentItem = window[HM_ItemIDPrefix + menucount + "_" + HM_CurrentMenu.itemCount] = new Layer(HM_CurrentTree.ItemWidth - (HM_ItemPadding*2),HM_CurrentMenu.scrollParent);
            HM_CurrentItem.itemSetup(menucount + "_" + HM_CurrentMenu.itemCount);
        }
        if(HM_CurrentItem.hasMore && (!HM_CreateTopOnly || HM_AreCreated && HM_CreateTopOnly)) {
               MenuCreated = HM_f_MakeMenu(menucount + "_" + HM_CurrentMenu.itemCount);
               if(MenuCreated) {
                HM_CurrentMenu =  HM_CurrentMenu.parentMenu;
                HM_CurrentArray = HM_CurrentMenu.array;
            }
        }
    }
    HM_CurrentMenu.itemCount = 0;
    if (HM_CurrentMenu.isHorizontal) {
//4.2
//        HM_CurrentMenu.clip.right = HM_CurrentMenu.lastItem.left + HM_CurrentMenu.lastItem.clip.right + HM_BorderWidth;
        HM_CurrentMenu.clip.right = HM_CurrentMenu.scrollParent.clip.right = HM_CurrentMenu.lastItem.left + HM_CurrentMenu.lastItem.clip.right + HM_BorderWidth;
    }
    else {

//4.2
//        HM_CurrentMenu.clip.right = HM_CurrentMenu.lastItem.clip.width + (HM_BorderWidth*2);
        HM_CurrentMenu.clip.right = HM_CurrentMenu.scrollParent.clip.right = HM_CurrentMenu.lastItem.clip.width + (HM_BorderWidth*2);
    }

//4.2
//  HM_CurrentMenu.clip.bottom = HM_CurrentMenu.lastItem.top + HM_CurrentMenu.lastItem.clip.bottom + HM_BorderWidth;
    HM_CurrentMenu.clip.bottom = HM_CurrentMenu.scrollParent.clip.bottom = HM_CurrentMenu.lastItem.top + HM_CurrentMenu.lastItem.clip.bottom + HM_BorderWidth;

    return HM_CurrentMenu;
}
function HM_f_ItemSetup(itemidsuffix) {
    this.menu = HM_CurrentMenu;
    this.tree = HM_CurrentTree;
    this.index = HM_CurrentMenu.itemCount - 1;
    this.array = HM_CurrentArray[HM_CurrentMenu.itemCount];
    this.dispText = this.array[0];
    this.linkText = this.array[1];
    this.permHilite  = HM_f_EvalParameters(this.array[3],false,"boolean");
    this.hasRollover = (!this.permHilite && HM_f_EvalParameters(this.array[2],true,"boolean"));
    this.hasMore     = HM_f_EvalParameters(this.array[4],false,"boolean") && HM_f_ValidateArray(HM_ArrayIDPrefix + itemidsuffix);
    var HtmlStrings = HM_f_GetItemHtmlStr(this.dispText);
    this.htmStr = HtmlStrings[0];
    this.htmStrOver = HtmlStrings[1];
    this.visibility = "inherit";
    this.onmouseover = HM_f_ItemOver;
    this.onmouseout  = HM_f_ItemOut;
    this.menu.lastItem = this;
    this.showChild = HM_f_ShowChild;
    this.ClickStart = this.hasMore && this.tree.ClickStart && (this.tree.TopIsPermanent && (this.tree.treeParent==this.menu));
    if(this.ClickStart) {
        this.captureEvents(Event.MOUSEUP);
        this.onmouseup = this.showChild;
        this.linkText = "";
    }
    else {
        if (this.linkText) {
            this.captureEvents(Event.MOUSEUP);
            this.onmouseup = HM_f_LinkIt;
        }
    }
    this.txtLyrOff = new Layer(HM_CurrentTree.ItemTextWidth - (HM_ItemPadding*2),this);
    with(this.txtLyrOff) {
        document.write(this.permHilite ? this.htmStrOver : this.htmStr);
        document.close();
        if (HM_CurrentTree.RightToLeft && this.menu.showImage && (!this.menu.isHorizontal || (this.menu.isHorizontal && (!this.menu.IsVariableWidth || (this.menu.IsVariableWidth && this.hasMore))) )) left = HM_ItemPadding + HM_ImageSize + HM_ImageHorizSpace;
        visibility = "inherit";
    }
    if(this.menu.IsVariableWidth){
        this.ItemTextWidth = this.txtLyrOff.document.width;
        this.ItemWidth = this.ItemTextWidth + (HM_ItemPadding*2);
        if(HM_CurrentMenu.showImage) {
            if(!this.menu.isHorizontal || this.hasMore) {
                this.ItemWidth += (HM_ItemPadding + HM_ImageSize + HM_ImageHorizSpace);
            }
        }
    }
    else {
        this.ItemWidth = this.tree.ItemWidth;
        this.ItemTextWidth = this.tree.ItemTextWidth;
    }
    if (this.menu.isHorizontal) {
        if (this.index) this.left = this.siblingBelow.left + this.siblingBelow.clip.width + HM_SeparatorSize;
        else this.left = (HM_BorderWidth + HM_ItemPadding);
        this.top = (HM_BorderWidth + HM_ItemPadding);
    }
    else {
        this.left = (HM_BorderWidth + HM_ItemPadding);
        if (this.index) this.top = this.siblingBelow.top + this.siblingBelow.clip.height + HM_SeparatorSize;
        else this.top = (HM_BorderWidth + HM_ItemPadding)
    }
    this.clip.top = this.clip.left = -HM_ItemPadding;
    this.clip.right = this.ItemWidth - HM_ItemPadding;
    this.bgColor = this.permHilite ? this.tree.BGColorOver : this.tree.BGColor;
    if(this.tree.NSFontOver) {
        if(!this.permHilite){
            this.txtLyrOn = new Layer(this.ItemTextWidth,this);
            with(this.txtLyrOn) {
                if (HM_CurrentTree.RightToLeft && this.menu.showImage && (!this.menu.isHorizontal || (this.menu.isHorizontal && (!this.menu.IsVariableWidth || (this.menu.IsVariableWidth && this.hasMore))) ))  left = HM_ItemPadding + HM_ImageSize + HM_ImageHorizSpace;
                visibility = "hide";
            }
        }
    }
    this.fullClip = this.txtLyrOff.document.height + (HM_ItemPadding * 2);
    if(this.menu.isHorizontal) {
        if(this.index) {
            var SiblingHeight = this.siblingBelow.clip.height;
            this.fullClip = Math.max(SiblingHeight,this.fullClip);
            if(this.fullClip > SiblingHeight) {
                var SiblingPrevious = this.siblingBelow;
                while(SiblingPrevious != null) {
                    SiblingPrevious.clip.height = this.fullClip;
                    SiblingPrevious = SiblingPrevious.siblingBelow;
                }
            }
        }
    }
    this.clip.height = this.fullClip;
    if(!this.menu.isHorizontal && this.menu.IsVariableWidth) {
        this.fullWidth = this.clip.width;
        if(this.index) {
            var SiblingWidth = this.siblingBelow.clip.width;
            this.fullWidth = Math.max(SiblingWidth,this.fullWidth);
            SiblingPrevious = this.siblingBelow;
            while(SiblingPrevious != null) {
                SiblingPrevious.clip.width = this.fullWidth;
                SiblingPrevious.dummyLyr.clip.width = this.fullWidth;
                if(SiblingPrevious.hasMore) {
                    SiblingPrevious.DistanceToRightEdge = SiblingPrevious.clip.right + SiblingPrevious.WhatsOnRight;
                    SiblingPrevious.DistanceToLeftEdge = HM_ItemPadding + SiblingPrevious.WhatsOnLeft;
                    SiblingPrevious.CompleteWidth = SiblingPrevious.ItemWidth + SiblingPrevious.WhatsOnLeft + SiblingPrevious.WhatsOnRight;
                    SiblingPrevious.ChildOverlap = (parseInt((HM_ChildPerCentOver != null) ? (HM_ChildPerCentOver  * SiblingPrevious.CompleteWidth) : HM_ChildOverlap));
                }
                if(SiblingPrevious.imgLyr && !HM_CurrentTree.RightToLeft) {
                    SiblingPrevious.imgLyr.left = this.fullWidth - (HM_ItemPadding * 2) - HM_ImageSize - HM_ImageHorizSpace;
                }
                SiblingPrevious = SiblingPrevious.siblingBelow;
            }
        }
        this.clip.width = this.fullWidth;
    }
    this.dummyLyr = new Layer(100,this);
    with(this.dummyLyr) {
        left = top = -HM_ItemPadding;
        clip.width = this.clip.width;
        clip.height = this.clip.height;
        visibility = "inherit";
    }
    if(this.hasMore && HM_CurrentMenu.showImage) {
        this.imageSrc = this.tree.RightToLeft ? HM_ImageSrcLeft : HM_ImageSrc;
        this.hasImageRollover = ((!this.tree.RightToLeft && HM_ImageSrcOver) || (this.tree.RightToLeft && HM_ImageSrcLeftOver));
        if(this.hasImageRollover) {
            this.imageSrcOver = this.tree.RightToLeft ? HM_ImageSrcLeftOver : HM_ImageSrcOver;
            if(this.permHilite) this.imageSrc = this.imageSrcOver;
        }
        this.imgLyr = new Layer(HM_ImageSize,this);
        with(this.imgLyr) {
            document.write("<IMG SRC='" + this.imageSrc + "' WIDTH=" + HM_ImageSize + " VSPACE=0 HSPACE=0 BORDER=0>");
            document.close();
            moveBelow(this.txtLyrOff);
            left = (HM_CurrentTree.RightToLeft) ? HM_ImageHorizSpace : this.ItemWidth - (HM_ItemPadding * 2) - HM_ImageSize - HM_ImageHorizSpace;
            top = HM_ImageVertSpace;
            visibility = "inherit";
        }
        this.imageElement = this.imgLyr.document.images[0];
    }
    if(this.hasMore) {
        this.WhatsOnRight = (!this.menu.isHorizontal || (this.menu.isHorizontal && this.isLastItem)) ?  HM_BorderWidth : HM_SeparatorSize;
        this.DistanceToRightEdge = this.clip.right + this.WhatsOnRight;
        this.WhatsOnLeft = (!this.menu.isHorizontal || (this.menu.isHorizontal && this.index==0)) ? HM_BorderWidth : HM_SeparatorSize;
        this.DistanceToLeftEdge = HM_ItemPadding + this.WhatsOnLeft;
        this.CompleteWidth = this.ItemWidth + this.WhatsOnLeft + this.WhatsOnRight;
        this.ChildOverlap = (parseInt((HM_ChildPerCentOver != null) ? (HM_ChildPerCentOver  * this.CompleteWidth) : HM_ChildOverlap));
    }
}
function HM_f_PopUp(menuname,e){
    if (!HM_AreLoaded) return;
    menuname = menuname.replace("elMenu",HM_MenuIDPrefix);

//4.2
//    var TempMenu = eval("window."+menuname);
    var TempMenu = window[menuname];
    if(!TempMenu)return;
    HM_CurrentMenu = TempMenu;
    if (HM_CurrentMenu.tree.ClickStart) {
        var ClickElement = e.target;
        ClickElement.onclick = HM_f_PopMenu;
    }
    else HM_f_PopMenu(e);
}
function HM_f_PopMenu(e){
    if (!HM_AreLoaded || !HM_AreCreated) return true;
    if (HM_CurrentMenu.tree.ClickStart && e.type != "click") return true;
    HM_f_HideAll();
    HM_CurrentMenu.hasParent = false;
    HM_CurrentMenu.tree.startChild = HM_CurrentMenu;
    var mouse_x_position = e.pageX;
    var mouse_y_position = e.pageY;
    HM_CurrentMenu.xPos = (HM_CurrentMenu.tree.MenuLeft!=null) ? eval(HM_CurrentMenu.tree.MenuLeft) : mouse_x_position;
    HM_CurrentMenu.yPos = (HM_CurrentMenu.tree.MenuTop!=null)  ? eval(HM_CurrentMenu.tree.MenuTop)  : mouse_y_position;
    HM_CurrentMenu.keepInWindow();
    HM_CurrentMenu.moveTo(HM_CurrentMenu.xPos,HM_CurrentMenu.yPos);
    HM_CurrentMenu.isOn = true;
    HM_CurrentMenu.showIt(true);
    return false;
}
function HM_f_MenuOver() {
    if(!this.tree.startChild){this.tree.startChild = this}
    if(this.tree.startChild == this) HM_f_HideAll(this)
    this.isOn = true;
    HM_UserOverMenu = true;
    HM_CurrentMenu = this;
    if (this.hideTimer) clearTimeout(this.hideTimer);
}
function HM_f_MenuOut() {
    this.isOn = false;
    HM_UserOverMenu = false;
    if(HM_StatusDisplayLink) status = "";
    if(!HM_ClickKill) {
        clearTimeout(HM_HideAllTimer);
        HM_HideAllTimer = null;
        HM_HideAllTimer = setTimeout("HM_CurrentMenu.hideTree()",HM_ChildMilliSecondsVisible);
    }
}
function HM_f_ShowChild(){
    if(!this.child) {
        HM_CurrentTree = this.tree;
        HM_CurrentMenu = this.menu;
        HM_CurrentItem = this;
        this.child = HM_f_MakeMenu(this.menu.count + "_"+(this.index+1));
        this.tree.treeParent = this.menu;
        this.tree.startChild = this.menu;
    }
    if (this.tree.PositionUnder && (this.menu == this.tree.treeParent)) {
        this.child.xPos = this.pageX + this.clip.left - HM_BorderWidth;
        this.child.yPos = this.menu.top + this.menu.clip.height - HM_BorderWidth;
    }
    else {
        this.oL = this.pageX;
        this.child.offsetWidth = this.child.clip.width;
        this.oT = this.pageY + this.clip.top - HM_BorderWidth;
        if(this.tree.RightToLeft) {
            this.child.xPos = ((this.oL - this.DistanceToLeftEdge) + this.ChildOverlap) - this.child.offsetWidth;
        }
        else {        
            this.child.xPos = (this.oL + this.DistanceToRightEdge) - this.ChildOverlap;
        }
        this.child.yPos = this.oT + HM_ChildOffset + HM_BorderWidth;
    }
    if(!this.tree.PositionUnder || this.menu!=this.tree.treeParent) this.child.keepInWindow();
    this.child.moveTo(this.child.xPos,this.child.yPos);
    this.menu.hasChildVisible = true;
    this.menu.visibleChild = this.child;
    this.child.showIt(true);
}
function HM_f_ItemOver(){
    if (HM_KeepHilite) {
        if (this.menu.currentItem && this.menu.currentItem != this && this.menu.currentItem.hasRollover) {
            with(this.menu.currentItem){
                bgColor = this.tree.BGColor;
                if(this.tree.NSFontOver) {
                    txtLyrOff.visibility = "inherit";
                    txtLyrOn.visibility = "hide";
                }
            }
            if(this.menu.currentItem.hasImageRollover)this.menu.currentItem.imageElement.src = this.menu.currentItem.imageSrc;
        }
    }
    if(this.hasRollover) {
        this.bgColor = this.tree.BGColorOver;
        if(this.tree.NSFontOver) {
            if(!this.txtLyrOn.isWritten){
                this.txtLyrOn.document.write(this.htmStrOver);
                this.txtLyrOn.document.close();
                this.txtLyrOn.isWritten = true;
            }
            this.txtLyrOff.visibility = "hide";
            this.txtLyrOn.visibility = "inherit";
        }
        if(this.hasImageRollover)this.imageElement.src = this.imageSrcOver;
    }
    if(HM_StatusDisplayLink) status = this.linkText;
    this.menu.currentItem = this;
    if (this.menu.hasChildVisible) {
        if(this.menu.visibleChild == this.child && this.menu.visibleChild.hasChildVisible) this.menu.visibleChild.hideChildren(this);
        else this.menu.hideChildren(this);
    }
    if (this.hasMore && !this.ClickStart) this.showChild();
}
function HM_f_ItemOut() {
    if ( (!HM_KeepHilite || ((this.tree.TopIsPermanent && (this.tree.treeParent==this)) && !this.menu.hasChildVisible)) && this.hasRollover) {
        with(this){
            bgColor = this.tree.BGColor;
            if(this.tree.NSFontOver) {
                txtLyrOff.visibility = "inherit";
                txtLyrOn.visibility = "hide";
            }
            if(this.hasImageRollover)this.imageElement.src = this.imageSrc;
        }
    }
    if(!HM_ClickKill && !HM_UserOverMenu) {
        clearTimeout(HM_HideAllTimer);
        HM_HideAllTimer = null;
        HM_HideAllTimer = setTimeout("HM_CurrentMenu.hideTree()",HM_ChildMilliSecondsVisible);
    }
}
function HM_f_ShowIt(on) {
    if (!(this.tree.TopIsPermanent && (this.tree.treeParent==this))) {
        if(!this.hasParent || (this.hasParent && this.tree.TopIsPermanent && (this.tree.treeParent==this.parentMenu)    )) {
            if (on == this.hidden)
                eval(on ? this.tree.UponDisplay : this.tree.UponHide)
        }
        if (on) this.zIndex = ++HM_ZIndex;
        this.visibility = on ? "show" : "hide";
    }
    if (HM_KeepHilite && this.currentItem && this.currentItem.hasRollover) {
        with(this.currentItem){
            bgColor = this.tree.BGColor;
            if(this.tree.NSFontOver) {
                txtLyrOff.visibility = "inherit";
                txtLyrOn.visibility = "hide";
            }
        }
        if(this.currentItem.hasImageRollover)this.currentItem.imageElement.src = this.currentItem.imageSrc;
    }
    this.currentItem = null;
}
function HM_f_KeepInWindow() {
    var ExtraSpace     = 10;
    var WindowLeftEdge = window.pageXOffset;
    var WindowTopEdge  = window.pageYOffset;
    var WindowWidth    = window.innerWidth;
    var WindowHeight   = window.innerHeight;
    var WindowRightEdge  = (WindowLeftEdge + WindowWidth) - ExtraSpace;
    var WindowBottomEdge = (WindowTopEdge + WindowHeight) - ExtraSpace;
    var MenuLeftEdge = this.xPos;
    var MenuRightEdge = MenuLeftEdge + this.clip.width;
    var MenuBottomEdge = this.yPos + this.clip.height;
    if (this.hasParent) {
        var ParentLeftEdge = this.parentItem.pageX;
        this.offsetWidth = this.clip.width;
    }
    if (MenuRightEdge > WindowRightEdge) {
        if (this.hasParent) {
            this.xPos = ((ParentLeftEdge - this.parentItem.DistanceToLeftEdge) + this.parentItem.ChildOverlap) - this.offsetWidth;
        }
        else {
            dif = MenuRightEdge - WindowRightEdge;
            this.xPos -= dif;
        }
        this.xPos = Math.max(5,this.xPos);
    }
    if (MenuBottomEdge > WindowBottomEdge) {
        dif = MenuBottomEdge - WindowBottomEdge;
        this.yPos -= dif;
    }
    if (MenuLeftEdge < WindowLeftEdge) {
        if (this.hasParent) {
            this.xPos = (ParentLeftEdge + this.parentItem.DistanceToRightEdge) - this.parentItem.ChildOverlap;
            MenuRightEdge = this.xPos + this.offsetWidth;
            if(MenuRightEdge > WindowRightEdge) this.xPos -= (MenuRightEdge - WindowRightEdge);
        }
        else {this.xPos = 5}
    }

//4.2
    if(HM_ScrollEnabled && (this.yPos < WindowTopEdge)) this.enableScrolling(WindowTopEdge);
}
function HM_f_LinkIt() {
    if (this.linkText.indexOf("javascript:")!=-1) eval(this.linkText)
    else {
        HM_f_HideAll();
        location.href = this.linkText;
    }
}
function HM_f_PopDown(menuname){
    if (!HM_AreLoaded || !HM_AreCreated) return;
    menuname = menuname.replace("elMenu",HM_MenuIDPrefix);

//4.2
//  var MenuToHide = eval("window."+menuname);
    var MenuToHide = window[menuname];
    if(!MenuToHide)return;
    MenuToHide.isOn = false;
    if (!HM_ClickKill) MenuToHide.hideTop();
}
function HM_f_HideAll(callingmenu) {
    for(var i=0; i<HM_TotalTrees; i++) {
        var TopMenu = HM_a_TopMenus[i].tree.startChild;
        if(TopMenu == callingmenu)continue
        TopMenu.isOn = false;
        if (TopMenu.hasChildVisible) TopMenu.hideChildren();
        TopMenu.showIt(false);
    }    
}
function HM_f_HideTree() { 
    HM_HideAllTimer = null;
    if (HM_UserOverMenu) return;
    if (this.hasChildVisible) this.hideChildren();
    this.hideParents();
}
function HM_f_HideTop() {
    TopMenuToHide = this;
    (HM_ClickKill) ? TopMenuToHide.hideSelf() : (this.hideTimer = setTimeout("TopMenuToHide.hideSelf()",HM_TopMilliSecondsVisible));
}
function HM_f_HideSelf() {
    this.hideTimer = null;
    if (!this.isOn && !HM_UserOverMenu) this.showIt(false);
}
function HM_f_HideParents() {
    var TempMenu = this;
    while(TempMenu.hasParent) {
        TempMenu.showIt(false);
        TempMenu.parentMenu.isOn = false;        
        TempMenu = TempMenu.parentMenu;
    }
    TempMenu.hideTop();
}
function HM_f_HideChildren(callingitem) {
    var TempMenu = this.visibleChild;
    while(TempMenu.hasChildVisible) {
        TempMenu.visibleChild.showIt(false);
        TempMenu.hasChildVisible = false;
        TempMenu = TempMenu.visibleChild;
    }
    if (!this.isOn || !callingitem.hasMore || this.visibleChild != callingitem.child) {
        this.visibleChild.showIt(false);
        this.hasChildVisible = false;
    }
}

//4.2
function HM_f_HideChildren(callingitem,forced) {
    var TempMenu = this.visibleChild;
    while(TempMenu.hasChildVisible) {
        TempMenu.visibleChild.showIt(false);
        TempMenu.hasChildVisible = false;
        TempMenu = TempMenu.visibleChild;
    }
//  if (!this.isOn || !callingitem.hasMore || this.visibleChild != callingitem.child) {
    if(forced || ((!this.isOn || !callingitem.hasMore || this.visibleChild != callingitem.child))) {
        this.visibleChild.showIt(false);
        this.hasChildVisible = false;
    }
}
function HM_f_PageClick() {
    if (!HM_UserOverMenu && HM_CurrentMenu!=null && !HM_CurrentMenu.isOn) HM_f_HideAll();
}

//4.2

function HM_f_EnableScrolling(topedge){
    this.yPos = (topedge + 10);
    var WindowHeight = window.innerHeight;
    this.clip.height = (Math.max(WindowHeight,30) - 20);
    if(!this.scrollbarsCreated) this.createScrollbars();
    this.checkScroll();
}
function HM_f_CreateScrollbars(){
    var TopScrollElement = new Layer(this.tree.MenuWidth,this);
    with(TopScrollElement){
        top = 0;
        left = 0;
        clip.width = this.tree.MenuWidth;
        clip.height = HM_ScrollBarHeight + HM_BorderWidth;
        visibility = "hide";
        bgColor = this.tree.BorderColor;
    }
    var TopScrollElementLyr = new Layer(this.tree.ItemWidth,TopScrollElement);
    with(TopScrollElementLyr){
        top = HM_BorderWidth;
        left = HM_BorderWidth;
        clip.width = this.tree.ItemWidth;
        clip.height = HM_ScrollBarHeight -  HM_BorderWidth;
        visibility = "inherit";
        bgColor = HM_ScrollBarColor;
        }
    var TopScrollElementImgLyr = new Layer(this.tree.ItemWidth,TopScrollElementLyr);
    with(TopScrollElementImgLyr){
        visibility = "inherit";
        top = (TopScrollElementLyr.clip.height - HM_ScrollImgHeight)/2;
        left = (this.tree.ItemWidth - HM_ScrollImgWidth)/2;
        document.write("<IMG VSPACE=0 HSPACE=0 SRC='" + HM_ScrollImgSrcTop +"'>");
        document.close();
    }
    var BotScrollElement = new Layer(this.tree.MenuWidth,this);
    with(BotScrollElement){
        top = 0;
        left = 0;
        clip.width = this.tree.MenuWidth;
        clip.height = HM_ScrollBarHeight+ HM_BorderWidth;;
        visibility = "hide";
        bgColor = this.tree.BorderColor;
    }
    var BotScrollElementLyr = new Layer(this.tree.ItemWidth,BotScrollElement);
    with(BotScrollElementLyr){
        top = HM_BorderWidth;
        left = HM_BorderWidth;
        clip.width = this.tree.ItemWidth;
        clip.height = HM_ScrollBarHeight - HM_BorderWidth;
        visibility = "inherit";
        bgColor = HM_ScrollBarColor;
        }
    var BotScrollElementImgLyr = new Layer(100,BotScrollElementLyr);
    with(BotScrollElementImgLyr){
        visibility = "inherit";
        top = (BotScrollElementLyr.clip.height - HM_ScrollImgHeight)/2;
        left = (this.tree.ItemWidth - HM_ScrollImgWidth)/2;
        document.write("<IMG VSPACE=0 HSPACE=0 SRC='" + HM_ScrollImgSrcBot +"'>");
        document.close();
    }
	this.scrollbarTop = TopScrollElement;
	this.scrollbarTop.captureEvents(Event.MOUSEDOWN);
	this.scrollbarTop.onmousedown = function(){HM_CurrentMenu.startScroll(true);return false};
	this.scrollbarBot = BotScrollElement;
	this.scrollbarBot.captureEvents(Event.MOUSEDOWN);
	this.scrollbarBot.onmousedown = function(){HM_CurrentMenu.startScroll(false);return false};
	this.scrollbarsCreated = true;
}
function HM_f_StartScroll(up){
	HM_f_StopScroll();
    if (this.hasChildVisible) this.hideChildren(false,true);
	HM_ScrollTimer = setInterval("HM_f_DoScroll(" + up + ")",20);
	window.captureEvents(Event.MOUSEUP);
	window.onmouseup = HM_f_EndScrollCapture;
}
function HM_f_StopScroll(){
	clearInterval(HM_ScrollTimer);
	HM_ScrollTimer = null;
}
function HM_f_EndScrollCapture(){
	HM_f_StopScroll();
	this.releaseEvents(Event.MOUSEUP);
	this.onmouseup = null;
}
function HM_f_DoScroll(up){
    var ScrollEl = HM_CurrentMenu.scrollParent;
    if(up){
        ScrollEl.top +=10;
    }
    else{
        ScrollEl.top -=10;
    }
    HM_CurrentMenu.checkScroll();
}
function HM_f_CheckScroll(){
    var ScrollEl = this.scrollParent;
    var MenuHeight = this.clip.height;
    var ScrollHeight = ScrollEl.clip.height;
    var HeightDiff = (MenuHeight - ScrollHeight);
    if(!HeightDiff){
        this.scrollbarBot.visibility = "hide";
        ScrollEl.top = 0;
    }
    if(ScrollEl.top <= (HeightDiff)) {
        ScrollEl.top = (HeightDiff);
        HM_f_StopScroll();
        this.scrollbarBot.visibility = "hide";
    }
    else {
        this.scrollbarBot.visibility = "inherit";
        this.scrollbarBot.top = (MenuHeight - HM_ScrollBarHeight - HM_BorderWidth);
    }
    if(ScrollEl.top >= 0) {
        ScrollEl.top = 0;
        HM_f_StopScroll();
        this.scrollbarTop.visibility = "hide";
    }
    else {
        this.scrollbarTop.visibility = "inherit";
    }
}

popUp = HM_f_PopUp;
popDown = HM_f_PopDown;
HM_f_OtherOnLoad = (window.onload) ? window.onload :  new Function;
window.onload = HM_f_StartIt;

//end

Next, the Internet Explorer 4 for Windows external script.

Produced by Peter Belesis and

All Rights Reserved. Legal Notices.
Created: February 19, 2002
Revised: February 19, 2002

URL: https://www.webreference.com/dhtml/column63/8.html