Sub NavDrawer_DrawerSlide (Position As Float, DrawerGravity As Int)
Dim slideOffset As Float
Log(Position)
'If Navdrawer.isDrawerOpen Then
If isDrawerOpened Then
slideOffset = 2 - Position
Else
slideOffset = Position
End If
MMenu.setTransformationOffset("BURGER_ARROW", slideOffset)
End Sub