"Komag" wrote:
Hmm, then perhaps there's a conflict with some other part of the code that is in the channel
No, it says "Install Failure: Compilation Failed". I have a 30" TCL Roku TV
Function Main() as void
m.menuFunctions = [
CreateLiveMenu,
CreateArchivedMenu
]
screen = CreateObject("roListScreen")
port = CreateObject("roMessagePort")
screen.SetMessagePort(port)
InitTheme()
screen.SetHeader("Welcome to Griffin TV")
screen.SetBreadcrumbText("Live", "Archive")
contentList = InitContentList()
screen.SetContent(contentList)
screen.show()
while (true)
msg = wait(0, port)
if (type(msg) = "roListScreenEvent")
if (msg.isListItemFocused())
screen.SetBreadcrumbText("Menu", contentList[msg.GetIndex()].Title)
else if (msg.isListItemSelected())
m.menuFunctions[msg.GetIndex()]()
endif
endif
end while
End Function
Function InitTheme() as void
app = CreateObject("roAppManager")
listItemHighlight = "#FFFFFF"
listItemText = "#707070"
brandingGreen = "#37491D"
backgroundColor = "#e0e0e0"
theme = {
BackgroundColor: backgroundColor
OverhangSliceHD: "pkg:/images/Overhang_Slice_HD.png"
OverhangSliceSD: "pkg:/images/Overhang_Slice_HD.png"
OverhangLogoHD: "pkg:/images/HDLogo.png"
OverhangLogoSD: "pkg:/images/SDLogo.png"
OverhangOffsetSD_X: "25"
OverhangOffsetSD_Y: "15"
OverhangOffsetHD_X: "25"
OverhangOffsetHD_Y: "15"
BreadcrumbTextLeft: brandingGreen
BreadcrumbTextRight: "#E1DFE0"
BreadcrumbDelimiter: brandingGreen
ListItemText: listItemText
ListItemHighlightText: listItemHighlight
ListScreenDescriptionText: listItemText
ListItemHighlightHD: "pkg:/images/select_bkgnd.png"
ListItemHighlightSD: "pkg:/images/select_bkgnd.png"
CounterTextLeft: brandingGreen
CounterSeparator: brandingGreen
GridScreenBackgroundColor: backgroundColor
GridScreenListNameColor: brandingGreen
GridScreenDescriptionTitleColor: brandingGreen
GridScreenLogoHD: "pkg://images/HDLogo.png"
GridScreenLogoSD: "pkg://images/SDLogo.png"
GridScreenOverhangHeightHD: "138"
GridScreenOverhangHeightSD: "138"
GridScreenOverhangSliceHD: "pkg:/images/Overhang_Slice_HD.png"
GridScreenOverhangSliceSD: "pkg:/images/Overhang_Slice_HD.png"
GridScreenLogoOffsetHD_X: "25"
GridScreenLogoOffsetHD_Y: "15"
GridScreenLogoOffsetSD_X: "25"
GridScreenLogoOffsetSD_Y: "15"
}
app.SetTheme( theme )
End Function
Function InitContentList() as object
contentList = [
{
Title: "Live",
ID: "1",
HDBackgroundImageUrl: "pkg:/images/breakfast_large.png",
SDBackgroundImageUrl: "pkg:/images/breakfast_large.png",
ShortDescriptionLine1: "Live Feed",
ShortDescriptionLine2: "Watch some of our live streame"
},
{
Title: "Archived",
ID: "2",
HDBackgroundImageUrl: "pkg:/images/HDLogo.png",
SDBackgroundImageUrl: "pkg:/images/HDLogo.png",
ShortDescriptionLine1: "Archived Menu",
ShortDescriptionLine2: "Choose from our enless library of videos"
} ]
return contentList
End Function