{text font-size=12pt,
    {text font-size=8pt, Little}
    {text font-size=1cm, Pretty big}
    {text Medium}
    {text font-size=1in, Huge!}
}
{text And this is the default}

{paragraph font-style="italic", Everything in this paragraph
    should be in an italic font,
    {text font-style="normal", except for this text fragment.}
}

{paragraph Everything in this paragraph
    should be normally weighted,
    {text font-weight="bold", except for this text fragment.}
}

{import * from CURL.GUI.CHARTS}
{import * from CHARTS-DOC,
    location = "../docstring-support/gui/charts-doc.scurl"
}

{RecordGrid height = 6cm, record-source = sample-records}

{let chart:LayeredChart =
    {LayeredChart
        width = 15cm,
        height = 6cm,
        left-axis = {new {NumericAxis-of double}, 0, 70},
        right-axis = {ChartAxis {ChartDataSeries sample-records, "Height"}},
        {LineLayer
            {ChartDataSeries sample-records, "Age"},
            {ChartDataSeries sample-records, "Wins"},
            {ChartDataSeries sample-records, "Height"},
            x-axis-data = {ChartDataSeries sample-records, "Name"}
        }
    }
}


{let left:TextField =
    {TextField
        value = "null",
        {on ValueFinished at tf:TextField do
            let val:String = tf.value
            set chart.left-margin = {evaluate val}
        }
    }
}

{let right:TextField =
    {TextField
        value = "null",
        {on ValueFinished at tf:TextField do
            let val:String = tf.value
            set chart.right-margin = {evaluate val}
        }
    }
}

{let top:TextField =
    {TextField
        value = "null",
        {on ValueFinished at tf:TextField do
            let val:String = tf.value
            set chart.top-margin = {evaluate val}
        }
    }
}

{let bottom:TextField =
    {TextField
        value = "null",
        {on ValueFinished at tf:TextField do
            let val:String = tf.value
            set chart.bottom-margin = {evaluate val}
        }
    }
}

{Canvas
    width = chart.width,
    height = chart.height,
    chart
}
{Fill width = 1cm}
{VBox
    spacing = .25cm,
    "Margins:",
    {Table
        cell-border-width = 1pt,
        cell-border-color = "silver",
        cell-border-style = "sunken",
        border-width = 1pt,
        border-color="silver",
        border-style = "sunken",
        {column-prototype
            {bold side},
            "left",
            "right",
            "top",
            "bottom"
        },
        {column-prototype
            width = 3cm,
            {bold value},
            left,
            right,
            top,
            bottom
        }
    }
}

{import * from CURL.GUI.CHARTS}
{import * from CHARTS-DOC,
    location = "../docstring-support/gui/charts-doc.scurl"
}

{RecordGrid height = 6cm, record-source = sample-records}

{let chart:LayeredChart =
    {LayeredChart
        width = 15cm,
        height = 6cm,
        left-axis = {new {NumericAxis-of double}, 0, 70},
        right-axis = {ChartAxis {ChartDataSeries sample-records, "Height"}},
        {LineLayer
            {ChartDataSeries sample-records, "Age"},
            {ChartDataSeries sample-records, "Wins"},
            {ChartDataSeries sample-records, "Height"},
            x-axis-data = {ChartDataSeries sample-records, "Name"}
        }
    }
}


{Canvas
    width = chart.width,
    height = chart.height,
    chart
}

Legend location:
{DropdownList
    LegendLocation.left,
    LegendLocation.right,
    LegendLocation.top,
    LegendLocation.bottom,
    list-item-creation-proc =
        {proc {val:any}:ListItem
            {return
                {ListValueItem
                    value = val,
                    (val asa LegendLocation).name
                }
            }
        },
    {on ValueChanged at ddl:DropdownList do
        set chart.legend-location = ddl.value asa LegendLocation
    },
    value = LegendLocation.right
}

Legend alignment:
{TextField
    value = {format "%.2f", chart.legend-alignment},
    {on ValueFinished at tf:TextField do
        set chart.legend-alignment = {tf.value.to-double}
    }
}

{import * from CURL.GUI.CHARTS}
{import * from CHARTS-DOC,
    location = "../docstring-support/gui/charts-doc.scurl"
}

{RecordGrid height = 6cm, record-source = sample-records}

{let chart:LayeredChart =
    {LayeredChart
        width = 15cm,
        height = 6cm,
        left-axis = {new {NumericAxis-of double}, 0, 70},
        right-axis = {ChartAxis {ChartDataSeries sample-records, "Height"}},
        legend-location = LegendLocation.top,
        legend-alignment = 0.5,
        legend-entry-factory =
            {proc
                {chart:Chart,
                 data-series:ChartDataSeries,
                 record:#Record,
                 color:FillPattern,
                 legend-index:int
                }:Graphic
                {return
                    {Frame
                        color = color,
                        {if-non-null record then
                            {data-series.field.domain.format
                                record[data-series.field.name]
                            }
                         else
                            data-series.field.caption
                        }
                    }
                }
            },
        legend-factory =
            {proc {chart:Chart, include-scrollbox?:bool}:#Graphic
                let constant entries:{Array-of Graphic} =
                    {chart.get-legend-entries}
                {if entries.empty? then
                    {return null}
                }
                
                let box:Box =
                    {HBox
                        margin = 4pt,
                        spacing = 8pt
                    }
                {for g in entries do {box.add g}}

                {return
                    {if include-scrollbox? then
                        {ScrollBox
                            border-width = 1px,
                            border-color = FillPattern.black,
                            box
                        }
                     else
                        set box.border-width = 1px
                        set box.border-color = FillPattern.black
                        {return box}
                    }
                }
            },
        {LineLayer
            {ChartDataSeries sample-records, "Age"},
            {ChartDataSeries sample-records, "Wins"},
            {ChartDataSeries sample-records, "Height"},