Sub Class_Globals
Public dialog As B4XDialog
End Sub
Public Sub Initialize (Root As B4XView)
dialog.Initialize(Root)
End Sub
Public Sub Show As ResumableSub
Wait For (dialog.Show("example", "yes", "no", "cancel")) Complete (Result As Int)
Return Result
End Sub