#Region Module Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
Dim rv As RemoteViews
End Sub
Sub Service_Create
Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_NEVER
rv = ConfigureHomeWidget("w", "rv", 0, "Wedge it",True)
End Sub
Sub Service_Start (StartingIntent As Intent)
If rv.HandleWidgetEvents(StartingIntent) Then Return
SetImages
End Sub
Sub rv_RequestUpdate
rv.UpdateWidget
End Sub
Sub rv_Disabled
Service.StopAutomaticForeground
End Sub
Sub Service_Destroy
Service.StopAutomaticForeground
End Sub
Sub ImageView1_Click
State.IsDisabled
If State.isDisabled = True Then
State.Off(False)
ToastMessageShow("Turned ON",False)
Else
State.Off(True)
ToastMessageShow("Turned OFF",False)
End If
SetImages
End Sub
Public Sub SetImages
State.IsDisabled
If State.isDisabled = True Then
rv.SetImage("ImageView1", LoadBitmap(File.DirAssets, "off.png"))
Else
rv.SetImage("ImageView1", LoadBitmap(File.DirAssets, "on.png"))
End If
rv.UpdateWidget
End Sub