Private Sub B4XPage_CloseRequest As ResumableSub
'Globals
'Private confirm As B4XView
'Private confirmExit As Boolean
If confirmExit Then Return True
confirm = xui.CreatePanel("")
confirm.SetLayoutAnimated(0, 0, 0, 350, 25)
Dim msgLbl As Label: msgLbl.Initialize("")
msgLbl.Text = "Are you sure you want to quit?"
Dim yesBtn As Button: yesBtn.Initialize("confirmed")
yesBtn.Text = "Yes"
Dim noBtn As Button: noBtn.Initialize("cancelled")
noBtn.Text = "Cancel"
confirm.AddView(msgLbl, 5, 0, 170, 25)
confirm.AddView(yesBtn, 180, 0, 50, 25)
confirm.AddView(noBtn, 240, 0, 80, 25)
Root.AddView(confirm, Root.Width/2 - confirm.Width/2, Root.Height/2 - confirm.Height/2, confirm.Width, confirm.Height)
Return False
End Sub
Private Sub confirmed_Click
confirmExit = True
B4XPages.ClosePage(Me)
End Sub
Private Sub cancelled_Click
confirmExit = False
confirm.Visible = False
End Sub