{text
    font-size = 50pt,
    font-family = “バーコードが表示できるフォント名”,
    1234567890
}

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

{let text:TextFlowBox = {TextFlowBox.allowing-breaks-in-words
                                      “aaaaaaaaaabbbbbbbbbbccccccccccddddddddddeeeeeeeeee”
                                  }
}
{VBox
    width=6cm,
    background=“aqua”,
    text
}

{curl 6.0,7.0,8.0 applet}

{VBox
    {italic Select at most one of the following pets:},
    {ListBox
        selection-policy = “single”,
        height = 1.0in,
        “Aardvark”, “Cat”, “Dog”, “Elephant”, “Gnu”, “Zebra”,
        {ListValueItem
            “This is value.”,
            label = “This is label.”
        },
        {on ValueFinished at lb:ListBox do
            {for x:any in lb.selected-items do
                {dump x}
                {popup-message {x.label.get-text}}
            }
            {for y:any in lb.value do
                {dump y}
            }
        }
    }
}

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

{let rs:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField
                “名前”, domain = String
            },
            {RecordField
                “数値”, domain = int, default-value = 10
            }
        },
        {RecordData 名前 = “John”, 数値 = 1},
        {RecordData 名前 = “Jane”, 数値 = 2},
        {RecordData 名前 = “Jane”, 数値 = 3}
    }
}
{let rg:RecordGrid =
    {RecordGrid
        height = 10cm, width = 10cm, record-source = rs
    }
}
{value
    {VBox
        rg,
        {CommandButton
            label = “append record”,
            {on Action do
                {rs.append {RecordData}}
            }
        }
    }
}

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

{import * from CURL.GUI.CONTROL-BASE}

{value
    {disable-inspection-gesture}
    let cb1:CheckButton = {CheckButton
                                        label = “Ctrl+右クリック無効”,
                                       {on ValueChanged at cb:CheckButton do
                                           {if cb.value == true then
                                               {set cb.label = “Ctrl+右クリック有効”}
                                               {enable-inspection-gesture}
                                           else
                                               {set cb.label = “Ctrl+右クリック無効”}
                                               {disable-inspection-gesture}
                                           }
                                       }
                                   }
   
    let tf1:TextField = {TextField
                                 value = “This is a pen.”
                              }

    let people:RecordSet =
        {RecordSet
            {RecordFields
                {RecordField “First”, domain = String},
                {RecordField “Age”, domain = int}
            },
            {RecordData First = “John”, Age = 25},
            {RecordData First = “Jane”, Age = 28}
        }
    let rg2:RecordGrid = {RecordGrid
                                     record-source = people
                                  }
    let vbox:VBox = {spaced-vbox
                                cb1,
                                tf1,
                                rg2
                            }
   
    let v:View =
        {View    
            width = 350pt,
            height = 350pt,
            valign = “center”,
            halign = “center”,
            title = “sample”,
            vbox      
        }

    {v.show}
}

{curl 6.0,7.0,8.0 applet}

{let
    text1:TextField = {TextField},
    text2:TextField = {TextField
                                 active-traversal-container = null
                             },
    text3:TextField = {TextField}
}

{VBox
    text1,
    text2,
    text3
}