Sub Process_Globals
Private LastCSClick As Long
End Sub
Sub Globals
Private Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim cs As CSBuilder
cs.Initialize.Append("1 2 3 ").Clickable("csLabel1", "tag").Append("click").Pop.Append("...").PopAll
Label1.Text = cs
cs.EnableClickEvents(Label1)
End Sub
Sub csLabel1_Click (Tag As Object)
LastCSClick = DateTime.Now
Log("cs click")
End Sub
Sub Label1_Click
Sleep(0)
If LastCSClick + 200 > DateTime.Now Then
Log("Ignoring label click")
Return
End If
Log("Label1_Click")
End Sub