ListModelに定義されているリストの一部を検索させたい

[c-s]

そういう場合では、findを使うよりは、自分のロープを書いた方がいいと思います。

Code:

{curl 7.0, 8.0 applet}

{def list-of-states =
    {DefaultListModel
        "01ABC", "02DEF", "03GHI"
    }
}

{def dd =
    {DropdownList
        prompt = "Choose a state:",
        data-model = list-of-states,
        dropdown-height = 2in
    }
}

{def cmd =
    {CommandButton
        label = "&Click me!",
        style = "standard",
        {on Action at btn:CommandButton do
            let index:int = -1
            {for li in dd.list-items do
                {inc index}
                {type-switch li.value
                 case s:String do
                    {if {s.find-string "2D"} >= 0 then
                        {dd.select-index index}
                        set index = -2
                        {break}
                    }
                }
            }
            {if index != -2 and dd.size >= 0 then
                {dd.select-index 0}
            }
        }
    }
}

{value dd}
{value cmd}

DefaultListModelを使ってにている事も出来るし、他にもやり方あります。