Roku Developer Program

[Blackhawk]

I have an install error when I tried to add this code on my channel

Function Main() as void
    m.menuFunctions = [
	PlayLiveFeed,
        CreateArchiveMenu
    ]
    screen = CreateObject("roListScreen")
    port = CreateObject("roMessagePort")
    screen.SetMessagePort(port)
    InitTheme()
    screen.SetHeader("Welcome to Griffin TV")
    screen.SetBreadcrumbText("Menu", "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/channel_diner_logo.png"
        OverhangLogoSD: "pkg:/images/channel_diner_logo.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/HDPoster.png"
        GridScreenLogoSD: "pkg://images/SDPoster.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: "2",
            
            HDBackgroundImageUrl: "pkg:/images/lvstreaming_304x237.png",
            SDBackgroundImageUrl: "pkg:/images/lvstreaming_304x237.png",            
            ShortDescriptionLine1: "Live Broadcast",
            ShortDescriptionLine2: "Live events are shown here"  
			          
        },
        {
            Title: "Archive",
            ID: "3",
            
            HDBackgroundImageUrl: "pkg:/images/HDPoster.png",
            SDBackgroundImageUrl: "pkg:/images/SDPoster.png",            
            ShortDescriptionLine1: "Archive Menu",
            ShortDescriptionLine2: "Choose from a library of videos"            
        }

    ]
    return contentList
End Function

Is there any way to fix it?

[Komag]

Does it give you a line # for the error?

could it be the
while (true)
? Maybe that's fine, but I don't remember using ()

[adamkaz]

This code ran fine for me. Just installed it on a streaming stick (3500, SW 7.0b9044)

[Komag]

Hmm, then perhaps there's a conflict with some other part of the code that is in the channel

[Blackhawk]

"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

[belltown]

What does the Debugger say?

[Blackhawk]

It didn't say anything other than"compilation failed"

[belltown]

How are you accessing the Debugger?

[Blackhawk]

How I do that?

[renojim]

https://sdkdocs.roku.com/display/sdkdoc ... pplication