function TestList() as Void
content = [
{ Title: "one", ShortDescriptionLine1: "First description" }
{ Title: "two", ShortDescriptionLine1: "Second description" }
{ Title: "three", ShortDescriptionLine1: "Third description" }
{ Title: "four", ShortDescriptionLine1: "Fourth description" }
]
screen = CreateObject("roListScreen")
screen.SetMessagePort(CreateObject("roMessagePort"))
screen.SetContent(content)
screen.Show()
while true
msg = Wait(0, screen.GetMessagePort())
if type(msg) = "roListScreenEvent") then
if msg.IsScreenClosed() then return
if msg.IsListItemFocused() then print "focus " msg.GetIndex()
if msg.IsRemoteKeyPressed() then print "key " msg.GetIndex()
if msg.IsListItemSelected() then print "select " msg.GetIndex()
endif
end while
end function
