{curl 7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{value
    let calendar:CalendarControl = {CalendarControl}
    let cal-ui:SkinnableCalendarControlUI = calendar.ui-object asa SkinnableCalendarControlUI
    let internal-frame:Frame = {cal-ui.graphical-children.read-one} asa Frame
    let internal-grid:Grid = {internal-frame.graphical-children.read-one} asa Grid
    let calendar-objects:{Array-of Graphic} = {{Array-of Graphic}}
    {for g:Graphic in internal-grid.graphical-children do
        {calendar-objects.append g}
    }

    def v-fid = {GridFiducial internal-grid, horizontal? = false}
    def h-fid = {GridFiducial internal-grid, horizontal? = true}

    {internal-grid.add
        calendar-objects[1],
        left = {internal-grid.left}, top = {internal-grid.top},
        right = v-fid, bottom = h-fid
    }   
    {internal-grid.add
        calendar-objects[0],
        left = v-fid, top = {internal-grid.top},
        right = {internal-grid.right}, bottom = h-fid,
        vorigin = {internal-grid.vorigin-fiducial}
    }
    {internal-grid.add
        calendar-objects[2],
        left = {internal-grid.left}, top = h-fid,
        right = {internal-grid.right}, bottom = {internal-grid.bottom}
    }

    {Table columns = 2,
        {text 通常のCalendar}, {text カスタマイズしたCalendar},
        {CalendarControl}, calendar
    }
}

{curl 6.0,7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{install-unexpected-exception-handler
    {proc {exception:Exception, backtrace:String}:void
        {popup-message “システムエラーが発生しました”}
        {dump exception.value}
        {dump backtrace}
    }
}

{View
    {Frame width = 8cm, height = 8cm,
        {CommandButton label = “システムエラーを発生させる(ダミー)“,
            {on Action do
                {throw {Exception “○○エラーです”}}
            }
        }
    },
    visibility = “normal”,
    {on WindowClose do
        {exit}
    }
}

{curl 6.0,7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{let input:String = “”}
{let tf:TextField = {TextField}}
{let td:TextDisplay = {TextDisplay}}

{tf.ui-object.add-event-handler
    {on e:CompositionResultEvent do
        set input = e.reading-string
    }
}

{tf.add-event-handler
    {on e:ValueChanged do
        set td.value = input
    }
}

{value
    {VBox
        spacing = 10pt,
        tf,
        td
    }
}

{curl 6.0,7.0,8.0 applet}

{import * from CURL.GUI.CHARTS}

{define-proc package {v-gradient
                                   start-color:FillPattern,
                                   highlight-color:FillPattern,
                                   end-color:FillPattern,
                                   highlight-pos:double = 0.5
                               }:FillPattern
    {return
        {LinearGradientFillPattern
            {Fraction2d 0, 0},
            {Fraction2d 0, 1},
            {Spectrum.from-envelope
                start-color,
                0.0,
                highlight-color,
                highlight-pos,
                end-color,
                1.0
            }
        }
    }
}

{let records:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField
                “Region”,
                domain = String
            },
            {RecordField “M1”, caption = “January”, domain = int},
            {RecordField “M2”, caption = “February”, domain = int},
            {RecordField “M3”, caption = “March”, domain = int}
        },
        {RecordData Region = “North”, M1 = 100, M2 = 140, M3 = 130 },
        {RecordData Region = “East”, M1 = 110, M2 = 140, M3 = 170},
        {RecordData Region = “South”, M1 = 140, M2 = 100, M3 = 130},
        {RecordData Region = “West”, M1 = 160, M2 = 190, M3 = 140}
    }
}

{let chart:LayeredChart =
    {LayeredChart
        width = 10cm,
        height = 6cm,
        flipped? = true,
        legend-enabled? = false,
        color-palette =
            {new {Array-of FillPattern},
                {v-gradient “transparent”, “transparent”, “transparent”},
                {v-gradient “blue”, “lavender”, “steelblue”},
                {v-gradient “red”, “mistyrose”, “crimson”}
            },
        bar-border-width = 0px,
        {BarLayer
            stacking-mode = ChartStackingMode.stacked,
            {ChartDataSeries records, “M1”},
            {ChartDataSeries records, “M2”},
            {ChartDataSeries records, “M3”},
            x-axis-data = {ChartDataSeries records, “Region”}
        }
    }
}

{value
    chart
}