Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private Dialog As B4XDialog
End Sub
Public Sub Initialize
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Dialog.Initialize(Root) 'or activity
Dialog.Title = "Title"
End Sub
Sub Button1_Click
Wait For (Dialog.Show("Do you want to do this?", "Yes", "No", "")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Log("do it")
End If
End Sub