Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private st As SystemTray
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
st.Initialize
Dim icon As TrayIcon
icon.Initialize("", xui.LoadBitmap(File.DirAssets, "logo.png"), Null)
Dim jo As JavaObject = icon
Dim event As Object = jo.CreateEventFromUI("java.awt.event.MouseListener", "MouseListener", Null)
jo.RunMethod("addMouseListener", Array(event))
st.AddTrayIcon(icon)
End Sub
Sub MouseListener_Event (MethodName As String, Args() As Object) As Object
Log(MethodName)
Dim MouseEvent As JavaObject = Args(0)
Log(MouseEvent.RunMethod("getButton", Null))
Return Null
End Sub