How to create an exit dialog box that pops up when back button is clicked
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.
