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

[usami]

ListModelクラスのfindメソッドでは、設定したリストを検索すると思いますが、
このリストのうち文字列の一部で検索する方法はありますか？
下記コードで登録してあるリストのうち、「02DEF」を、「2D」のキーワードで
検索させ、２番目のリストを表示させたいのですが、このコードでは検索できません。

Code:

{let list-of-states:DefaultListModel =
    {DefaultListModel
        "01ABC", "02DEF", "03GHI"
    }
}
{let dd:DropdownList =
    {DropdownList
        prompt = "Choose a state:",
        data-model = list-of-states,
        dropdown-height = 2in
    }
}
{let cmd:CommandButton =
    {CommandButton
       label = "&Click me!",
        style = "standard",
        {on Action at btn:CommandButton do
            let indx:int = {dd.find "2D"}
            {if indx < 0 then
                {dd.select-index 0}
             else
                {dd.select-index indx}
            }
        }
    }
}
{value dd}
{value cmd}

[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を使ってにている事も出来るし、他にもやり方あります。

[usami]

ありがとうございます。
確認してみます。