||
||  Executive Information System
||

{curl 5.0 applet}

{applet manifest = "manifest.mcurl",
    resync-as-of = {utc-date-time "2006-09-10"}
}

{import * from SIEMENS.EIS, version = "1.0.0"}

{{get-the-applet}.set-title "Executive Information System"}

{{get-the-applet}.become-sticky}

|| This makes it so that the top level graphic (the ScrollBox below) will
|| always be the same size as the entire window.
{document-style PlainDocument}

{let 
    eis-spot:Fill = {Fill},
    header-left-frame:Frame =
        {Frame
            width = {make-elastic},
            height = 75pixel,
            background = {Background.tiled
                             from-root?=false,
                             pattern = {FillPattern.from-url
                                           {url "images/header-fill.gif"}
                                       }
                         }
        },
    header-right-frame:Frame =
        {Frame
            width = {make-elastic},
            height = 75pixel,
            background = {Background.tiled
                             from-root?=false,
                             pattern = {FillPattern.from-url
                                           {url "images/header-fill.gif"}
                                       }
                         }
        },
    footer-middle-frame:Frame =
        {Frame
            width = {make-elastic},
            height = 65pixel,
            horigin = "left",
            vorigin = "bottom",
            background = {Background.tiled
                             from-root?=false,
                             pattern = {FillPattern.from-url
                                           {url "images/footer-fill.gif"}
                                       }
                         }
        }
}

{ScrollBox
    width = {make-elastic
                minimum-size = 800pixel
            },
    height = {make-elastic
                 minimum-size = 600pixel
             },
    background = "black",
    hstretch? = true,
    vstretch? = true,
    {OverlayBox
        {VBox
            {HBox
                valign = "top",
                {VBox header-left-frame, {Fill}},
                {image
                    height = 478pixel,
                    width = 798pixel,
                    vorigin = "bottom",
                    source = {url "images/body.gif"}
                },
                {VBox header-right-frame, {Fill}}
            },
            {Fill},
            {HBox
                {image
                    source = {url "images/footer-left.gif"},
                    height = 65pixel,
                    width = 166pixel,
                    vorigin = "bottom"
                },
                {image
                    source = {url "images/footer-middle2.gif"},
                    height = 65pixel,
                    width = 574pixel,
                    vorigin = "bottom"
                },
                footer-middle-frame,
                {image
                    source = {url "images/footer-right.gif"},
                    height = 65pixel,
                    width = 60pixel,
                    vorigin = "bottom"
                }
            }
        },
        eis-spot
    }
}

{do
    {eis-spot.replace-with {EIS}}
}