Developers

[rikkrokker]

Hi all,

I'm pulling my hair out and need some help. I'm trying to update my previously working audio player app to allow for refresh of the player buttons based on playstate. I keep getting errors on the 'function reloadbuttons (screen as object, isplaying as boolean, ispaused as boolean)' line, saying that 'screen' is uninitialized. What am I missing (while I still have hair on my head)...

Function showAudioSpringboardScreen(item as object)
    screen = CreateObject("roSpringboardScreen")
    port = screen.getmessageport()
    busydialog=CreateObject("roOneLineDialog") ' creates a dialog box
    print "showAudioSpringboardScreen"
	print item
	print item.title
	
    
    busydialog.SetMessagePort(port)
    screen.AllowUpdates(false)
	screen.SetBreadcrumbText("Live Audio Stream","")
	screen.SetBreadcrumbEnabled(true)
    screen.SetContent(item)
    screen.Show()
	audio=createobject("roaudioplayer")
	isplaying=false
	ispaused=false
	reloadbuttons(screen,playing,paused)

   	screen.SetDescriptionStyle("audio") 'audio, movie, video, generic
                                        ' generic+episode=4x3,

    screen.SetStaticRatingEnabled(false)
    screen.AllowUpdates(true)
    screen.setadurl("http://crntalk.com/podcast/roku/app/images/adbanner_hd.png","http://crntalk.com/podcast/roku/app/images/adbanner_sd.png")
	screen.setAdSelectable(true)


    downKey=3
    selectKey=6

    while true
        msg = wait(0, aud.GetMessagePort())


'*******************
if type(msg)="roAudioPlayerEvent"	
	print msg.getmessage()
	if msg.isStatusMessage() and msg.GetMessage() = "startup progress" then
	busydialog.SetMessagePort(aud.GetmessagePort()) 'sets a message port for the dialog box
	busydialog.SetTitle("Your CRN Live Stream will begin momentarily. ") 'displays a line of text for the dialog box title
	busydialog.ShowBusyAnimation() ' enables a spinning animation
	busydialog.Show() ' makes the dialog box and busy animation display
	
	else if msg.isStatusMessage() and msg.GetMessage() = "start of play" then
	busydialog.Close()

	else if msg.isStatusMessage() and msg.GetMessage() = "end of playlist" then
	busydialog.Close()
	busydialog=CreateObject("roOneLineDialog") ' creates a dialog box
	busydialog.SetMessagePort(aud.GetmessagePort()) 'sets a message port for the dialog box
	busydialog.SetTitle("The Connection Timed Out.") 'displays a line of text for the dialog box title
	busydialog.Show() ' makes the dialog box

	busydialog.Close()
	endif

'*******************

else if type(msg) = "roSpringboardScreenEvent"
    if msg.isScreenClosed()
    print "Screen closed"
    exit while 

else if msg.isadselected() then
	print "Ad Selected"
	showParagraphScreen(true)
              
else if msg.isButtonPressed()
    print "Button pressed: "; msg.GetIndex(); " " msg.GetData()
    if msg.GetIndex() = 0 then
    print "Audio Player Selected"
	audio.SetMessagePort (port)

	if item <> invalid and type(m) = "roAssociativeArray"
		print "Array OK"
		print item.url
		Print "Getting Stream"
		audio.stop()
        audio.addContent(item)	
		audio.play()
		isplaying=false
		ispaused=false
	reloadbuttons(screen,isplaying,ispaused)

Else if isplaying and not ispaused then

            	Audio.pause()
				isplaying=true
                ispaused=false
                reloadbuttons(screen,isplaying,ispaused)

else if isplaying and ispaused then

                audio.resume()
                isplaying=true
                ispaused=true
                reloadbuttons(screen,isplaying,ispaused)



	else print "invalid"
		'return -1
	end if

    			else if msg.GetIndex() = 1
				print "Audio Stop"
				audio.stop()
                islaying=false
                ispaused=false
                reloadbuttons(screen,isplaying,ispaused)

                else if msg.GetIndex() = 2 then
					if item.title = "CRN1" then
                         Schedule1(true)
					     print "Show Schedule"
					else if item.title = "CRN2" then
						 Schedule2(true)
					     print "Show Schedule"
					else if item.title = "CRN3" then
						 Schedule3(true)
					     print "Show Schedule"
					else if item.title = "CRN4" then
						 Schedule4(true)
					     print "Show Schedule"
					else if item.title = "CRN5" then
						 Schedule5(true)
					     print "Show Schedule"
					else if item.title = "CRN6" then
						 Schedule6(true)
					     print "Show Schedule"
					else if item.title = "CRN7" then
						 Schedule7(true)
						 print "Show Schedule"
					else print "No Schedule Loaded"
						end if
				else if msg.GetIndex() = 3
						showParagraphScreen(true)
                else if msg.GetIndex() = 4
                        return true
                    endif
            else
                print "Unknown event: "; msg.GetType(); " msg: "; msg.GetMessage()
            endif
        else 
            print "wrong type.... type=";msg.GetType(); " msg: "; msg.GetMessage()
        endif
    end while


    return screen
End Function

Function reloadButtons(screen as object, isplaying as Boolean, ispaused as Boolean)

                               screen.clearbuttons()
                               If not isplaying then
                               screen.addbutton(0,"Play")
                               Else if isplaying and not ispaused then
                               screen.addbutton(0,"Pause")
                               screen.addbutton(1,"Stop")

                               Else if isplaying and ispaused then
                               screen.addbutton(0,"Resume")
                               screen.addbutton(1,"Stop")
                               End if

                                'now add any non-conditional buttons

	    					screen.AddButton(2,"Network Schedule")
							screen.AddButton(3,"About CRN")
    						screen.AddButton(4,"Go Back")

                End function