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

また以下のFAQをご参照ください。
http://developers.curlap.com/faq/48-faq-specification/386-2010-10-18-07-59-02.html