Sub Globals
Private SMEdit As SlidingMenu
.
.
.
Sub Activity_Create(FirstTime As Boolean)
.
.
SMEdit.Initialize("SMEdit")
jo = SMEdit
Dim event As Object = jo.CreateEventFromUI("com.jeremyfeinstein.slidingmenu.lib.SlidingMenu$OnOpenListener", "Open", Null)
jo.RunMethod("setOnOpenListener", Array(event))
SMEdit.Mode = SMEdit.LEFT
Dim lftMenu As Panel
lftMenu.Initialize("")
SMEdit.Menu.AddView(lftMenu, 0, 0, 100%x, 100%y)
lftMenu.LoadLayout("Left")
Dim offset As Int = 100%x - (CLV1.sv.Width + (2 * CLV1.sv.Left))
SMEdit.BehindOffset = offset
.
.
.
Sub Open_Event (MethodName As String, Args() As Object) As Object
SLMForEdit
End Sub