ComboBoxのラベル表示

[okm]

こんにちは！

ComboBoxで、見た目のラベルと、実際の値と別のものを表示できると思うんですが、
実際ラベルが表示されるのはクリックしたListが表示されているときだけで、
Listを選択すると実際の値になってしまいますよね？

これって、選択してもラベルを表示させることは出来ないのでしょうか？


よろしくお願いいたします。

[usami]

少々強引ですが、こんな感じでしょうか？
リストが選択されたら値を変数に保持し、unset-valueによってクリアさせて
選択された行に対するラベルを表示させています。

Code:

{def display:VBox = {VBox}}
{def model:DefaultListModel =
    {DefaultListModel
        "1", "2", "3"
    }
}
{def lb:ListBox =
    {ListBox
        "A","B","C"
    }
}
{let st:String = ""}
{Frame
    color = "black",
    {ComboBox
        control-appearance-changeable? = true,
        data-model = model,
        prompt = "select here",
        list-item-creation-proc =
            {proc {val:any}:ListItem
                {return
                    {ListValueItem
                        val,
                        label = lb[{val.to-int} - 1].value
                    }
                }
            },
        {on e:ValueFinished at cbo:ComboBox do
            set st = cbo.value
            {display.clear}
            {display.add {format "value: %s", st}}
            set cbo.prompt = lb[{cbo.value.to-int} - 1].value
            {cbo.unset-value}
            {e.consume}
        }
    }
}
{value display}

[okm]

usamiさま

ありがとうございます！
う～ん、なるほど・・。
ComboBox.valueで値を取得するのはあきらめて・・ということですね。

ちなみに、値を変数に保持しているなら、ComboBoxのValueを書き換えたのでいいのでは？
と思ってしまうのですが、promptで表示させるのはなにか意味があるのですか？

[usami]

unset-valueを実行すると選択した値がクリアされるため、
選択した値(1,2,3)を取得しないのであれば、変数に保持しておく必要はありません。
valueを書き換えたら表示も値(1,2,3)になるので、prompt(A,B,C)を書き換えてます。

[okm]

usamiさま

なるほどー。
ありがとうございます。