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

{let lbox:ListBox = {ListBox width = 30mm, height = 20mm,
                        “Aardvark”, “Cat”, “Dog”, “Elephant”,
                        “あああああいいいいいうううううえええええおおおおお”,
                        “Aardvark”, “Cat”, “Dog”, “Elephant”
                    }
}

{value
    ||もしも将来のバージョンアップでグラフィック構造が変更されても
    ||出来るだけ対応できるようにするため宣言の型をできるだけ緩くします
    let ui:ListBoxUI = (lbox.ui-object asa ListBoxUI)
    let iterator:{Iterator-of Graphic} = ui.graphical-children

    ||ScrollBoxと決めてしまうとグラフィック構造が変更された場合にエラーになる可能性があるため
    ||any型にしておきます
    let g:any = ({iterator.read-one-as-any})
    ||型がScrollBoxのときのみ実行するように分岐しておきます
    {type-switch g
     case scroll-box:ScrollBox do
        ||こちらの設定で横スクロールが表示され利用できるようになります
        ||詳細は「always-disable-hscroll?」をヘルプドキュメントで検索してください
        set scroll-box.always-disable-hscroll? = false
     else
        ||型がScrollBoxではなかったときの処理を記述してください
    }

    lbox
}

{{Clipboard.get-system-clipboard}.set-object
    {Pixmap.from-url
        {url [画像ファイルのURL]}
    }
}

{curl 7.0,8.0 applet}

{define-class public MySkinnableRecordGridUI {inherits SkinnableRecordGridUI}
  {constructor public {default …}
    {construct-super …}
  }

  {method public {my-reveal-index row-index:int = -1, column-index:int = -1}:void
    {super.reveal-index row-index = row-index, column-index = column-index}
  }
}

{value
    let rs:RecordSet = {RecordSet
                           {RecordFields
                               {RecordField “a”, nullable?=true},
                               {RecordField “b”, nullable?=true},
                               {RecordField “c”, nullable?=true},
                               {RecordField “d”, nullable?=true},
                               {RecordField “e”, nullable?=true},
                               {RecordField “F”, nullable?=true}
                           },
                           {RecordData},{RecordData},{RecordData},{RecordData e = “target”},
                           {RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData},
                           {RecordData},{RecordData},{RecordData},{RecordData},{RecordData}
                       }
    let rg:RecordGrid = {RecordGrid ui-object = {MySkinnableRecordGridUI},
                            record-source = rs}
   
    {VBox
        {CommandButton label = “test”,
            {on Action do
                let ui:MySkinnableRecordGridUI = rg.ui-object asa MySkinnableRecordGridUI
                {dump ui}
                {ui.my-reveal-index row-index = 3, column-index = 4}
            }
        },
        rg
    }
}

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

|| SkinnableTextAreaUIのサブクラス
{define-class public CustomTextAreaUI {inherits SkinnableTextAreaUI}
  {constructor public {default …}
    {construct-super {splice …}}
    def v-bar = {self.scrollbox.get-vscroll}
    || スクロールバーは表示しない
    set v-bar.thickness = 0px
  }
}

{def text-area ={TextArea
                           width = 5cm,
                           height= 3cm,
                           ui-object = {CustomTextAreaUI},
                           value = {String.repeat-char ‘a’,100},
                           control-content-background = “#E0E0E0”,
                           editable? = false
                       }
}

{value
    text-area
}

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

{let my-alarm:#Alarm}

{View
    {Frame width = 8cm, height = 8cm, background = “yellow”,
        {on e:PointerPress do
            {if e.button == left-button then
                {if e.click-count == 1 then
                    {set my-alarm = {Alarm
                                              　 delay = 0.4s,
                                                {proc {}:void
                                                     {output “シングルクリック”}
                                                }
                                            }
                    }
                elseif e.click-count == 2 then
                    {output “ダブルクリック”}
                    {my-alarm.cancel}
                }
            }
        }
    },
    visibility = “normal”,
    {on WindowClose do
        {exit}
    }
}