ComboBoxのListを「右寄せ」にしたい

[blackwood]

少し深いですが、グラフィック階層をたどっていくとSkinnableComboBoxTextFieldがあります。
そのhalignを"right"に設定するといいのではないでしょうか。

Code:

{curl 8.0 applet}
{curl-file-attributes character-encoding = "utf8"}

{let cb:ComboBox = {ComboBox "Antelope", "Llama", "Horse", value="Antelope" }}

{value
let ui:SkinnableComboBoxUI = cb.ui-object asa SkinnableComboBoxUI
let g1:{Iterator-of Graphic} = ui.graphical-children
let g2:any = {g1.read-one-as-any}
let g3:{Iterator-of Graphic} = g2.graphical-children
let g4:any = {g3.read-one-as-any}
let g5:{Iterator-of Graphic} = g4.graphical-children
let g6:any = {g5.read-one-as-any} ||g6がSkinnableComboBoxTextField

{set g6.halign = "right"}

cb}