小文字入力を不可にしたい

【ご質問】
TextFieldにて小文字入力を制御することは可能でしょうか。

【回答】
TextField.replace-selection-with-string （メソッド）を改変することで実現可能です。

詳細は以下のサンプルをご参照ください。

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

{define-class public open MyTextField {inherits TextField}
{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 text1:TextField = {MyTextField
width = 3cm
}
}

{let text2:TextField = {TextField
width = 3cm
}
}

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

また、APIリファレンスの
[CURL.LANGUAGE.STRINGS]-[StringInterface]
の項内のメソッド[to-upper-clone]の項をご参照ください。