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

{define-class public MyTextFieldUI {inherits StandardTextFieldUI}
  {constructor public {default control:#TextField=null, …}
    {construct-super control = control, …}
  }

  {method private {make-menu-pane-for-text-field view:View}:MenuPane
    let fm:FocusManager = {non-null view.focus-manager}
    {return
        {MenuPane
            {on e:GrabRelease do
                {if self.input-method-enabled? then
                    let local?:bool = {set? self.input-method-enabled?}
                    {try
                        set self.input-method-enabled? = false
                     finally
                        {if local? then
                            set self.input-method-enabled? = true
                         else
                            {unset self.input-method-enabled?}
                        }
                    }
                }
            },
            {MenuAction
                label = {host-localize “Cut”},
                bound-command = {fm.get-command “cut”}
            },
            {MenuAction
                label = {host-localize “Copy”},
                bound-command = {fm.get-command “copy”}
            },
            {MenuAction
                label = {host-localize “Paste”},
                bound-command = {fm.get-command “paste”}
            },
            {MenuAction
                label = {host-localize “Delete”},
                bound-command = {fm.get-command “delete”}
            }
        }
    }
  }

  {method open public {on-context-menu-event e:ContextMenuEvent}:void
    {if not e.consumed? then
        {if-non-null v = {self.get-view} then
            {if-non-null
                menu-pane = {self.make-menu-pane-for-text-field v}
             then
                {e.consume}
                {menu-pane.popup self, e.x, e.y}
            }
        }
    }
  }
}

{do
    {the-standard-look-and-feel.register-ui
        TextField,
        MyTextFieldUI
    }
}

{TextField width = 100pt}

{curl 7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}
{applet
    {compiler-directives careful? = true}
}

{define-class public EnterKeyCell {inherits StandardStringCell}

  {constructor public {default}
    {construct-super}
  }

  {method public {create-editor}:TextField

    let editor:TextField = {super.create-editor}

    ||セル上で操作するテキストフィールドに対して、
    ||Enterキーのイベントを追加する。
    {editor.add-event-handler
        {on e:KeyPress do
            {if e.value == KeyPressValue.enter then
                {popup-message “EnterKey Press Event 拾いました。”}
                {e.consume}
            }
        }
    }
    {return editor}
  }
}

{let rs-choice-grid:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField
                “choice”, caption = “選択”, domain = bool
            },
            {RecordField
                “service”, caption = “サービス”, domain = String
            }
        },
        {RecordData choice = false, service = “良いサービス”},
        {RecordData choice = false, service = “普通サービス”},
        {RecordData choice = false, service = “悪いサービス”}
    }
}

{let rg:RecordGrid =
    {RecordGrid
        width = 264pt,
        height = 192pt,
        name = “sample”,
        automatic-columns? = false,
        column-selection-enabled? = false,
        record-selection-enabled? = true,
        select-current-record? = true,
        record-source = rs-choice-grid,
        {RecordGridColumn  width = 0.8cm, “choice”},
        {RecordGridColumn  width = 3.2cm, “service”, editable? = false, cell-spec = EnterKeyCell},
        ui-object = {SkinnableRecordGridUI                                       
                        {on e:KeyPress do
                            {if e.value == KeyPressValue.enter then
                                {popup-message “EnterKey Press Event 拾いました。”}
                                {e.consume}
                            }
                        }
                    }
    }
}

{Dialog rg}

{do
    {rg.request-key-focus}
}

{curl 7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}
{applet
    {compiler-directives careful? = true}
}

{let start:Frame = {Frame color = “blue”, font-weight = “bold”}}
{let change:Frame = {Frame font-weight = “bold” }}
{let end:Frame = {Frame color = “blue”, font-weight = “bold”}}
{let result:Frame = {Frame color = “red”, font-weight = “bold”}}

{VBox
    {TextField width = 5cm,
        input-method-focus-behavior = “activate”,
        ui-object = {SkinnableTextFieldUI
                        {on e:StartCompositionEvent do
                            {start.clear}
                            {change.clear}
                            {end.clear}
                            {result.clear}
                            {start.add replace? = true, “イベントが開始しました”}
                        },
                        {on e:CompositionChangeEvent do
                            {change.add replace? = true, e.string}
                        },
                        {on e:EndCompositionEvent do
                            {end.add replace? = true, “イベントが終了しました”}
                        },
                        {on e:CompositionResultEvent do
                            {result.add replace? = true, e.string}
                        }
                    }
    },
    {Table columns = 2,
        “イベントの開始”, start,
        “入力中の文字列”, change,
        “イベントの終了”, end,
        “入力結果”, result
    }
}

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

{def grid =
    {RecordGrid
        record-source = {RecordSet
                            {RecordFields
                                {RecordField “First”, domain = String},
                                {RecordField “Last”, domain = String},
                                {RecordField “Age”, domain = int}
                            },
                            {RecordData First = “John”, Last = “Smith”, Age = 25},
                            {RecordData First = “Jane”, Last = “Smith”, Age = 29},
                            {RecordData First = “Jane”, Last = “Jones”, Age = 28}
                        },
        automatic-columns? = false,
        select-current-record? = true,
        editable? = true,
        display-record-selectors? = false,
        display-navigation-panel? = false,
        select-current-record? = true,
        display-filler-column? = true,
        column-resizable? = false,
        column-movable? = false,
        multiple-selection-enabled? = false,
        {on e:FocusIn at gird:RecordGrid do
            {InputCell.cell.become-active}
        },
       
        {RecordGridColumn “First”, cells-take-focus? = false,editable? = false},
        {RecordGridColumn “Last”, cells-take-focus? = false,editable? = false},
        {RecordGridColumn “Age”, halign = “right”, cell-spec = InputCell}

    }
}

{define-class public InputCell {inherits StandardRecordGridCell}

  field private _input:TextField =
      {TextField
        color = “black”,
        halign = “right”,
        max-chars = 10,
        takes-focus? = true,
        active-traversal-container = null,
        {validate-with {NumericValidator}}
      }

  let public cell:#InputCell

  {constructor public {default …}
    {self.add-internal self._input}

    {if InputCell.cell == null then
        set InputCell.cell = self
    }
   
    {self.add-event-handler
        {on e:FocusIn at cell:InputCell do
            {self._input.become-active}
        }
    }
    {self._input.add-event-handler
        {on e:KeyPress at tf:TextField do
            {if e.value == KeyPressValue.tab then
                {if (self.grid.current-index == 0  and e.shift?) or
                    (self.grid.current-index == self.grid.record-source.size – 1 and not e.shift? )
                 then
                    {self.grid.active-traversal-container.traverse forward? = (not e.shift?)}
                    {e.consume}
                    {return}
                }
                {self.active-traversal-container.traverse forward? = (not e.shift?)}
             else
                {super.on-key-press e}
            }
        }
    }
  }

  {method public {note-grid-focus-out}:void
    {self.attempt-update self._input.value}
    {super.note-grid-focus-out}
  }
 
  {method public {refresh-data}:void
    {super.refresh-data}
    let (val:any, valid?:bool) = {self.get-data}
    set self._input.value = {if val == null then “” else val & “”}
   
  }    
}

{View
    {StandardActiveTraversalContainer
        {VBox
            {TextField width = 100pt},
            grid,
            {CommandButton}
        }
    },
    visibility = “normal”,
    {on WindowClose do
        {exit}
    }
}

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

{define-class public AmikakeFrame {inherits Frame}

  {constructor public {default …}
    {construct-super …}
  }

  {method public {draw renderer2d:Renderer2d}:void
    ||縦
    {for i:Distance = 0pt below self.width step {any-to-Distance 2px} do
        {renderer2d.render-line
            i, 0pt,
            i, self.height,
            fill-pattern = “black”,
            stroke-thickness = {any-to-Distance 1px},
            line-style = “solid”
        }
    }
    ||横
    {for i:Distance = 0pt below self.height step {any-to-Distance 2px} do
        {renderer2d.render-line
            0pt, i,
            self.width, i,
            fill-pattern = “black”,
            stroke-thickness = {any-to-Distance 1px},
            line-style = “solid”
        }
    }
  }
}

{value
    let af:AmikakeFrame = {AmikakeFrame width = 200pt, height = 200pt, background = “red”}
    af
}

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

||連続押しができないボタン
{define-class public MyCommandButton {inherits CommandButton}

  {constructor public {default …}
    {construct-super …}
  }
 
  {method public {handle-event event:Event}:void
    {if event isa Action then
        set self.enabled? = false
       
        {dispatch-events true}
        {super.handle-event event}
        {dispatch-events true}
        set self.enabled? = true
     else
        {super.handle-event event}
    }
  }
}

{define-class public MyStandardTextFieldUI {inherits StandardTextFieldUI}

  field public fire?:bool = true
 
  {constructor public {default …}
    {construct-super …}
  }
 
  {method public {on-raw-key-release e:RawKeyRelease}:void
    set self.fire? = true
  }
 
  {method public {on-pointer-press e:PointerPress}:void
    set self.fire? = true
  }

}
||ValueFinishedイベント抑制TextField
{define-class public MyTextField {inherits TextField}

  {constructor public {default …}
    {construct-super …}
    set self.ui-object = {MyStandardTextFieldUI}
  }

  {method public {handle-event event:Event}:void
    {if event isa ValueFinished and (self.ui-object asa MyStandardTextFieldUI).fire? then
        {super.handle-event event}
        set (self.ui-object asa MyStandardTextFieldUI).fire? = false
     elseif not event isa ValueFinished then
        {super.handle-event event}
     elseif not (self.ui-object asa MyStandardTextFieldUI).fire? then
        ||
     else
        {super.handle-event event}
        set (self.ui-object asa MyStandardTextFieldUI).fire? = true
    }
  }
}

{value
    {VBox spacing = 10pt,
        {MyTextField width = 100pt,
            {on e:ValueFinished at tf:TextField do
                {dump e}
            }
        },
        {MyCommandButton label = “二度押し禁止”,
            {on e:Action do
                {dump e}
                ||時間の掛かる処理の代わり
                {sleep 3s}
            }
        }
    }
}

{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}
            }
        }
    }
}