B4A Library [Class] Double Tap to Exit

'Class module
Private Sub Class_Globals
   Private Ti As Timer
   Private I As Int
   Private TT As String
   Private BeforeCloseObj As Object
   Private BeforeCloseEvent As String
   Private CC As Int
End Sub

Public Sub Initialize (ToastText As String,CloseObject As Object , CloseEvent As String,ClickCount As Int,ClickTimeoutMs As Int)
   I = 0
   Ti.Initialize ("Ti",ClickTimeoutMs)
   Ti.Enabled = False
   TT = ToastText
   CC = ClickCount
   BeforeCloseObj = CloseObject
   BeforeCloseEvent = CloseEvent
End Sub

Private Sub Ti_Tick
  I = 0
End Sub

Public Sub TapToClose
   Ti.Enabled = False
   Ti.Enabled = True
   ToastMessageShow (TT,False)
   I = I + 1
   If I >= CC Then
     Ti.Enabled = False
     If (BeforeCloseObj <> Null) And (BeforeCloseEvent<>"") Then CallSub(BeforeCloseObj,BeforeCloseEvent)
     ExitApplication
   End If
End Sub

Sub Globals
  Dim D As DoubleTaptoClose
End Sub

Sub Activity_Create(FirstTime As Boolean)
  D.Initialize ("Tap again to exit",Me,"BeforeClose",2,2000)
' Toastmessage = "Tap again to exit"
' Object for callback function = Me
' Event for callback function = "BeforeClose"
' Clickcount = 2
' Timeout for clicking = 2000 (ms)
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
  If keycode = KeyCodes.KEYCODE_BACK Then
    D.TapToClose
    Return True
  EndIf
End Sub

Sub BeforeClose
  ' do something before close
End Sub