Private Sub B4XPage_Appear
Sleep(0) '<-- important.
B4XPages.GetManager.ActionBar.RunMethod("setDisplayHomeAsUpEnabled", Array(True))
Dim bd As BitmapDrawable
bd.Initialize(xui.LoadBitmapResize(File.DirAssets, "hamburger.png", 32dip, 32dip, False)) 'better to load the image once and store it in a global variable.
B4XPages.GetManager.ActionBar.RunMethod("setHomeAsUpIndicator", Array(bd))
End Sub
Private Sub B4XPage_Disappear
B4XPages.GetManager.ActionBar.RunMethod("setHomeAsUpIndicator", Array(0))
End Sub