Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Type MyByRef(a As Int,b As Int)
Type MyReturn(a As Int,b As Int)
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
Dim aaaa As MyByRef
aaaa.a=1
aaaa.b=2
Dim ret As MyReturn
ret = Test(aaaa)
Log(aaaa.a)
Log(aaaa.b)
Log(ret.a)
Log(ret.b)
End Sub
Sub Test(x As MyByRef) As MyReturn
x.a=2
x.b=3
Dim ret As MyReturn
ret.a=123
ret.b=456
Return ret
End Sub