Sub Process_Globals
Public ActionBarHomeClicked As Boolean
End Sub
Sub Globals
Private ime As IME
End Sub
Sub Activity_Create(FirstTime As Boolean)
ime.Initialize("IME")
ime.AddHeightChangedEvent
Dim pm As B4XPagesManager
pm.Initialize(Activity)
End Sub
Private Sub IME_HeightChanged (NewHeight As Int, OldHeight As Int)
B4XPages.GetManager.RaiseEvent(B4XPages.GetManager.GetTopPage, "IME_HeightChanged", Array(NewHeight, OldHeight))
End Sub