ComboBoxの入力文字を小文字不可としたい

【ご質問】
ComboBoxで入力する文字を”小文字入力不可”としたいのですが、どのようにしたらよいのでしょうか？

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

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

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