Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim rv As RemoteViews
End Sub
Sub Service_Create
rv = ConfigureHomeWidget("widglayout.bal", "rv", 0, "Parkzone Dialer Widget", True)
End Sub
Sub Service_Start (StartingIntent As Intent)
If rv.HandleWidgetEvents(StartingIntent) Then Return
End Sub
Sub rv_RequestUpdate
End Sub
Sub rv_Disabled
StopService("")
End Sub
Sub Service_Destroy
End Sub
Sub Widget_check
rv.SetVisible("Label1", True)
rv.SetVisible("ImageView1", False)
rv.SetVisible("Label2", True)
rv.SetText("Label1", Parktime.gesamtminuten)
rv.UpdateWidget
End Sub
Sub Widget_Stop
rv.SetVisible("Label1", False)
rv.SetVisible("ImageView1", True)
rv.SetVisible("Label2", False)
rv.UpdateWidget
End Sub
Sub Panel1_Click
StartActivity(Main)
End Sub