DropdownListの選択肢幅の調整

【ご質問】
コントロールの幅と選択肢の幅を違うサイズで表示したいのですが、
どうすればよいでしょうか？

【回答】
カスタムコントロールUIの作成を行うことで実現可能です。
StandardLookAndFeelのインスタンスを作成し、
オプション値を変更することでコントロールの外観を変更できます。

※尚、Ver 7以降はカスタムコントロールUIを作成する必要はありません。
　何も設定しなくても自動で選択肢の幅を調整します。

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

{define-class public MyDropdownListUI {inherits StandardDropdownListUI}

{constructor public {default control:#DropdownList=null, …}
{construct-super control = control, …}
}

{getter protected open {dropdown-width}:Distance
{return 300pt}
}
}

{let standard-look-and-feel:StandardLookAndFeel = {StandardLookAndFeel}}

{let registered:bool = {standard-look-and-feel.register-ui
                           DropdownList,
                           MyDropdownListUI
                       }
}

{let list:DropdownList = {DropdownList
                             look-and-feel = standard-look-and-feel,
                             width = 3cm,
                             “sample1”,
                             “sample2”,
                             “sample3”,
                             “sample_xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx4”,
                             value = “sample1”
                         }
}

{value
list
}