||| Copyright (C) 1998-2007, Sumisho Computer Systems Corp.  All Rights Reserved.
|||
||| Maintained by: Curl Solutions
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
||
||        Name: start.curl
||    Synopsis: start page for 3d bar chart applet
|| Description:
||
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

{curl 5.0, 6.0, 7.0 applet}

{applet 
    manifest = "manifest.mcurl"
}

{import * from COM.CURL.CSK.EXTRAS.BAR-CHART-3D}

{api-version-switch
 case "6.0" do
    {import * from COM.CURL.GUI.STYLED-CONTROLS}
    {install-style-sheet
        {manifest-url "file", "DEFAULT-STYLE-SHEET"}
    }
}
{let bar-chart-graphic:#BarChartGraphic}

{do
    || Create an array of values
    let values:{Array-2-of double} = {new {Array-2-of double}, 2, 3}
    set values[0, 0] = 3.0
    set values[0, 1] = 1.0
    set values[0, 2] = 2.0
    set values[1, 0] = .234
    set values[1, 1] = 1.234
    set values[1, 2] = .234

    let x-labels:{Array-of String} =
        {new {Array-of String}, "Company A", "Company B"}
    let y-labels:{Array-of String} =
        {new {Array-of String}, "Dec 00", "Jan 01", "Feb 01"}

    || Create a bar chart with these values
    let bar-chart:BarChart =
        {BarChart values, x-axis-labels = x-labels, y-axis-labels = y-labels}

    set bar-chart-graphic =
        {BarChartGraphic
            bar-chart,
            width=5in,
            height=5in
        }

}


{value bar-chart-graphic}