Это самый маленький фрагмент, который мне удалось воспроизвести, чтобы воспроизвести проблему.
Sub Main()
u = getStringFromKeyboard("Enter username")
p = getStringFromKeyboard("Enter password")
End Sub
Function getStringFromKeyboard(message = "" As String) As String
result = ""
port = CreateObject("roMessagePort")
screen = CreateObject("roKeyboardScreen")
screen.SetMessagePort(port)
screen.SetDisplayText(message)
screen.AddButton(1, "OK")
screen.Show()
while true
print "waiting..."
msg = wait(0, port)
print "done waiting"
if type(msg) = "roKeyboardScreenEvent" then
if msg.GetIndex() = 1 then
result = screen.GetText()
exit while
end if
end if
end while
screen.Close()
return result
End Function
Roku правильно запросит имя пользователя, но просто выйдет в главное меню, прежде чем запрашивать пароль. Выходные данные отладки показывают, что приложение выполняет второй вызов функции wait ():
waiting...
done waiting
waiting...
Это SDK v4.1 и OS v4.2.1006.
Кто-нибудь знает, что происходит?