Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private AwVerb As AwesoneWheel
End Sub
'You can add more parameters here.
Public Sub Initialize As Object
Return Me
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Root.LoadLayout("SxWheelPageLayout")
AwVerb.AddItem("1", xui.Color_Magenta)
AwVerb.AddItem("2", xui.Color_RGB(255,150,150))
AwVerb.AddItem("3", xui.Color_RGB(255,150,150))
Awverb.Text="Go !" ' Default is Play
End Sub