How to create an exit dialog box that pops up when back button is clicked instead of back button exiting channel
' Channel entry point
sub Main()
ShowChannelRSGScreen()
end sub
sub ShowChannelRSGScreen()
' The roSGScreen object is a SceneGraph canvas that displays the contents of a Scene node instance
screen = CreateObject("roSGScreen")
' message port is the place where events are sent
m.port = CreateObject("roMessagePort")
' sets the message port which will be used for events from the screen
screen.SetMessagePort(m.port)
' every screen object must have a Scene node, or a node that derives from the Scene node
scene = screen.CreateScene("MainScene")
screen.Show() ' Init method in MainScene.brs is invoked
' event loop
while(true)
' waiting for events from screen
msg = wait(0, m.port)
msgType = type(msg)
if msgType = "roSGScreenEvent"
if msg.IsScreenClosed() then return
end if
end while
end sub
This is my main.brs code how to stop back button from exiting the channel, how to make back button pop up a box that asks user if they want to exit the channel, how to exit channel when exit now button is clicked on box.
