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

{import * from CURL.RUNTIME.HOST-PROCESS}

{let tf:TextField =
    {TextField
        value = “フルパスを入力してください”,
        width = 10cm
    }
}

{let cb:CommandButton =
    {CommandButton
        label=“関連付け実行”,
        {on Action do
            let url-link:Url = {url “file:///“ & tf.value}
            let file:any = {url-link.resolve error-if-missing? = false}
            {type-switch file
             case file:File do
                ||ファイルとして存在する
                let hostprocessrtn:int =
                    {run-host-shell
                        “START \”\” cmd /c \”” & url-link.local-filename asa String & “\””
                    }
             else
                {popup-message “ファイルが存在しません”}
            }
        }                           
    }
}

{View
    {VBox
        tf,
        cb
    },
    visibility = “normal”,
    {on WindowClose do
        {exit}
    }
}

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

{define-proc {prepare-traverse-with-enter
                      atc:ActiveTraversalContainer,
                      target-controls:{Set-of Type},
                      ignore-exception? = true
                  }:void
    {let gui-m:GuiManager = {get-gui-manager}}
    {let fm:#FocusManager = {atc.get-focus-manager}}
    {gui-m.add-event-handler
        {on ke:RawKeyRelease at gui-m do
            {if ke.keycode == Keycode.enter and fm.keyboard-focus-target isa ControlUI then
                def target = fm.keyboard-focus-target asa ControlUI
                def ctl = target.control
                {if {target-controls.member? {type-of ctl}}then
                    {if ke.shift? then
                        {d.traverse forward?=false}
                     else
                        {d.traverse}
                    }
                }
            }
        }
    }
    {return}
}

{def enter-to-move-targets:{Set-of Type} =
    {{Set-of Type}
        TextField
        ,PasswordField
        ||,TextArea || In TextArea, enter key will be kept as a carriage return key.
        ,{type-of {SpinControl}.focus-object} || for DateField and SpinControl
        ,CommandButton
        ,CalendarControl
    }
}

{let d:Dialog
    ={Dialog
         {VBox
             {TextField prompt=“enter to move next”},
             {PasswordField prompt=“enter to move next”},
             {TextDisplay value=“test”},
             {DateField},
             {SpinControl},
             {CalendarControl},
             {CommandButton},
             {TextArea}
         }
     }
}

{value d}

{prepare-traverse-with-enter
    d,
    enter-to-move-targets
}

{let invoke-count:int = 0}

{do
  set {get-the-applet}.launch-handler =
          {proc {url:Url}:void
              {inc invoke-count}
              {if invoke-count > 1 then
                  {popup-message “すでに起動しています。”}
              }
          }
}

{MenuAction
　  label = “印刷…”,
    {on Action do
    　　　　{print-graphic
    　　　　　　　　contents,  ||画面に表示されている全コンテンツを含むFrameなど

　　　　　　　　　　||デフォルトの「印刷…」ボタンと同じスタイルで印刷する為に
　　　　　　　　　　||以下のプロパティを変更します。
      　　　　　　　hstretch? = true,
      　　　　　　　ne-title = {get-base-url}
      　　　}
    }
}

menu-pane-proc =
{proc {vi:Visual}:MenuPane
　　　　{return
　　　　　　　　{MenuPane
　　　　　　　　　　　　{MenuAction
　　　　　　　　　　　　　　　　label = vi.name & “印刷”,
　　　　　　　　　　　　　　　　{on Action do
　　　　　　　　　　　　　　　　    {print-graphic
　　　　　　　　　　　　　　　　　　　　vi,
　　　　　　　　　　　　　　　　　　　　ne-title = {get-base-url}
　　　　　　　　　　　　　　　　    }
                            }
                     }
              }
　　　　}
}

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

{define-class public open MyComboBox {inherits ComboBox}
  {constructor public {default …}
    {construct-super …}
  }

  {method public open {replace-selection-with-string
                          text:StringInterface
                      }:void

    set text = {text.to-upper-clone}
    {super.replace-selection-with-string text}
  }
}

{let cb:MyComboBox = {MyComboBox width = 3cm}}
{let cb2:ComboBox = {ComboBox width = 3cm}}

{HBox
    {VBox
        “↓小文字入力不可”,
        cb
    },
    {Fill width = 0.5cm},
    {VBox
        “↓小文字入力可”,
        cb2
    }
}

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

{let records:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField
                “id”, caption = “row no”, domain = int,
                index-type = RecordFieldIndexType.unique
            },
            {RecordField “level”, domain = String},
            {RecordField “Lv1”, domain = String},
            {RecordField “Lv2”, domain = String},
            {RecordField “Lv3”, domain = String},
            {RecordField “Lv4”, caption = “金額”, domain = int}
        },
        {RecordData id = 1,  level = “1”,     Lv1 = “Fred”,  Lv2 = “”,          Lv3 = “”,  Lv4 = 700},
        {RecordData id = 2,  level = “1-1”,   Lv1 = “Fred”,  Lv2 = “Cambridge”, Lv3 = “”,  Lv4 = 450},
        {RecordData id = 3,  level = “1-1-1”, Lv1 = “Fred”,  Lv2 = “Cambridge”, Lv3 = “E”, Lv4 = 150},
        {RecordData id = 4,  level = “1-1-2”, Lv1 = “Fred”,  Lv2 = “Cambridge”, Lv3 = “F”, Lv4 = 300},
        {RecordData id = 5,  level = “1-2”,   Lv1 = “Fred”,  Lv2 = “Boston”,    Lv3 = “”,  Lv4 = 100},
        {RecordData id = 6,  level = “1-2-1”, Lv1 = “Fred”,  Lv2 = “Boston”,    Lv3 = “Z”, Lv4 = 100},
        {RecordData id = 7,  level = “1-3”,   Lv1 = “Fred”,  Lv2 = “Hartford”,  Lv3 = “”,  Lv4 = 150},
        {RecordData id = 8,  level = “1-3-1”, Lv1 = “Fred”,  Lv2 = “Hartford”,  Lv3 = “A”, Lv4 = 150},
        {RecordData id = 9,  level = “2”,     Lv1 = “Pat”,   Lv2 = “”,          Lv3 = “”,  Lv4 = 950},
        {RecordData id = 10, level = “2-1”,   Lv1 = “Pat”,   Lv2 = “Keene”,     Lv3 = “”,  Lv4 = 700},
        {RecordData id = 11, level = “2-2”,   Lv1 = “Pat”,   Lv2 = “New Haven”, Lv3 = “”,  Lv4 = 100},
        {RecordData id = 12, level = “2-3”,   Lv1 = “Pat”,   Lv2 = “Concord”,   Lv3 = “”,  Lv4 = 150},
        {RecordData id = 13, level = “2-3-1”, Lv1 = “Pat”,   Lv2 = “Concord”,   Lv3 = “E”, Lv4 = 150},
        {RecordData id = 14, level = “3”,     Lv1 = “Glenn”, Lv2 = “”,          Lv3 = “”,  Lv4 = 611},
        {RecordData id = 15, level = “3-1”,   Lv1 = “Glenn”, Lv2 = “Storrs”,    Lv3 = “”,  Lv4 = 306},
        {RecordData id = 16, level = “3-1-1”, Lv1 = “Glenn”, Lv2 = “Storrs”,    Lv3 = “O”, Lv4 = 103},
        {RecordData id = 17, level = “3-1-2”, Lv1 = “Glenn”, Lv2 = “Storrs”,    Lv3 = “Q”, Lv4 = 102},
        {RecordData id = 18, level = “3-1-3”, Lv1 = “Glenn”, Lv2 = “Storrs”,    Lv3 = “S”, Lv4 = 101},
        {RecordData id = 19, level = “3-2”,   Lv1 = “Glenn”, Lv2 = “Storrs2”,   Lv3 = “”,  Lv4 = 305},
        {RecordData id = 20, level = “3-2-1”, Lv1 = “Glenn”, Lv2 = “Storrs2”,   Lv3 = “I”, Lv4 = 155},
        {RecordData id = 21, level = “3-2-2”, Lv1 = “Glenn”, Lv2 = “Storrs2”,   Lv3 = “M”, Lv4 = 150}
    }
}

{let sort1:RecordSort = {RecordSort {proc {x:Record, y:Record}:int
                                        {let x-val:String = x[“level”] asa String}
                                        {let y-val:String = y[“level”] asa String}
                                        {set x-val = {x-val.substr 0, 1}}
                                        {set y-val = {y-val.substr 0, 1}}
                                        {if {x.compare-field “Lv1”, y[“Lv1”]} != 0 then
                                            {return {x.compare-field “Lv1”, y[“Lv1”]}}
                                         else
                                            {return {(x[“level”] asa String).compare (y[“level”] asa String)}}
                                        }
                                    }
                        }
}
{let sort2:RecordSort = {RecordSort.from-string “Lv2, level”}}

{let record-grid:RecordGrid =
    {RecordGrid
        record-source = records,
        height = 15cm,
        width = 20cm,
        {RecordGridColumn “id”, edit-on-focus? = false, sort-spec = null},
        {RecordGridColumn “level” ,sort-spec = null},
        {RecordGridColumn “Lv1”, sort-spec = {RecordSort.from-string “Lv1 ASC”}},
        {RecordGridColumn “Lv2” ,sort-spec = null},
        {RecordGridColumn “Lv3” ,sort-spec = null},
        {RecordGridColumn “Lv4” ,sort-spec = null}
    }
}

{View
    title = “Grid sample”,
    {Frame width = 21cm, height = 16cm,
        {VBox
            record-grid
        }
    },
    visibility = “normal”,
    {on WindowClose do
        {exit}
    }
}