||| Copyright (C) 1998-2007, Sumisho Computer Systems Corp.  All Rights Reserved.
|||
||| Maintained by: Curl Solutions
{curl 6.0, 7.0 applet}
{curl-file-attributes character-encoding = "utf8"}
{applet manifest = "manifest.mcurl",
    {compiler-directives careful? = true}
}

{import * from COM.CURL.ORDER-ENTRY.VIEW}
{import * from COM.CURL.ORDER-ENTRY.CONTROLLER}

{import * from CURL.GUI.CHARTS}

{api-version-switch
 case "7+" do
    {install-style-sheet
        {StyleSheet
            {get-default-style-sheet},
            {value
                def unobtrusive-legend-factory =
                    {proc {chart:Chart,
                           include-scrollbox?:bool
                          }:Graphic
                        || squelch black border
                        let g:Graphic =
                            {Chart.default-legend-factory chart,
                                include-scrollbox?
                            }
                        set g.border-width = 0pt
                        set g.border-color = "transparent"
                        {return g}
                    }

                let frame-skin:SkinSpec =
                    {ShadedSkinSpec
                        margin-spec = {OffsetSpec 0pt},
                        "#91BFF2",
                        "#BBE9F0",
                        border-color = "#6C9AF0",
                        corner-radius = 6px,
                        upper-left-rounded? = true,
                        upper-right-rounded? = true,
                        lower-right-rounded? = false,
                        lower-left-rounded? = false||,
                    }
                {StyleSheet
                    {StyleRule "LayeredChart",
                        legend-factory = unobtrusive-legend-factory
                    },
                    {StyleRule "BarLayer.summary-chart",
                        bar-border-width = 0pt
                    },
                    {StyleRule "PieSet",
                        pie-wedge-border-width = 0pt
                    },
                    {StyleRule "RecordGrid",
                        || Header row background color
                        control-color = "#BBE9F0",
                        || Cell font color
                        color = "black",
                        || Control background
                        || (usually visible beneath the summary row)
                        background = "#E6F3FA",
                        || Cell background color
                        control-content-background = "#E6F3FA",
                        || Cell border color
                        grid-line-color = "#A8D2F6", ||"#B280B2",
                        || Cell border width
                        horizontal-grid-line-width = 1px,
                        vertical-grid-line-width = 1px ||,
                    },
                    
                    {StyleRule "SkinnableFrame.section-title",
                        font-size = 10pt,
                        height = 14pt,
                        skin = frame-skin
                    },
                    {StyleRule "SkinnableFrame.main-title",
                        font-size = 14pt,
                        height = 20pt,
                        skin = frame-skin
                    }
                }
            }
        }
    }

 case "6+" do
    {import * from COM.CURL.GUI.STYLED-CONTROLS}
    {let ss:Url = {manifest-url "file", "DEFAULT-STYLE-SHEET"}}
    {install-style-sheet
        {StyleSheet
            ss,
            {value
                def unobtrusive-legend-factory =
                    {proc {chart:Chart,
                           include-scrollbox?:bool
                          }:Graphic
                        || squelch black border
                        let g:Graphic =
                            {Chart.default-legend-factory chart,
                                include-scrollbox?
                            }
                        set g.border-width = 0pt
                        set g.border-color = "transparent"
                        {return g}
                    }

                let frame-skin:SkinSpec =
                    {ShadedSkinSpec
                        margin-spec = {OffsetSpec 0pt},
                        "#91BFF2",
                        "#BBE9F0",
                        border-color = "#6C9AF0",
                        corner-radius = 6px,
                        upper-left-rounded? = true,
                        upper-right-rounded? = true,
                        lower-right-rounded? = false,
                        lower-left-rounded? = false||,
                    }
                {StyleSheet
                    {StyleRule "LayeredChart",
                        legend-factory = unobtrusive-legend-factory
                    },
                    {StyleRule "BarLayer.summary-chart",
                        bar-border-width = 0pt
                    },
                    {StyleRule "PieSet",
                        pie-wedge-border-width = 0pt
                    },
                    {StyleRule "RecordGrid",
                        || Header row background color
                        control-color = "#BBE9F0",
                        || Cell font color
                        color = "black",
                        || Control background
                        || (usually visible beneath the summary row)
                        background = "#E6F3FA",
                        || Cell background color
                        control-content-background = "#E6F3FA",
                        || Cell border color
                        grid-line-color = "#A8D2F6", ||"#B280B2",
                        || Cell border width
                        horizontal-grid-line-width = 1px,
                        vertical-grid-line-width = 1px ||,
                    },
                    
                    {StyleRule "SkinnableFrame.section-title",
                        font-size = 10pt,
                        height = 14pt,
                        skin = frame-skin
                    },
                    {StyleRule "SkinnableFrame.main-title",
                        font-size = 14pt,
                        height = 20pt,
                        skin = frame-skin
                    }
                }
            }
        }
    }
}

{value
    || create and display the application class and assign the layout and data
    let app:ctBaseTrainingApplication =
        {ctBaseTrainingApplication
            {lcl-make-layout},
            "10-orders.csv"
        }
    app
}