Sub getItem as string
Dim strResult As String=""
Wait For (Dialog.ShowTemplate(Search, "OK", "", "Cancel")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
If Search.SelectedItem.Length>0 Then
strResult=Search.SelectedItem
Else
strResult=Search.SearchField.Text
End If
Log(Search.SearchField.Text)
Log(Search.SelectedItem)
LogColor("result=" & strResult, Colors.Blue)
Search.SearchField.Text=""
Search.SelectedItem=""
return strResult
End If
End Sub