Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
Private Button1Index As Int
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
End Sub
Private Sub Button1_MouseClicked (EventData As MouseEvent)
Button1Index = Button1Index + 1
If EventData.ClickCount > 2 Then Return
If EventData.ClickCount = 1 Then
Dim MyIndex As Int = Button1Index
Sleep(300)
If MyIndex <> Button1Index Then Return
End If
Log(EventData.ClickCount)
End Sub