Sub Process_Globals
Private fx As JFX
Private MainForm,New As Form
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
New.Initialize("Test",400,300)
newWindowLayout(New,300,400,"New Form","2")
New.Show
End Sub
Public Sub newWindowLayout(m As Form,h As Double,w As Double,t As String,lout As String)
Log("new window")
m.RootPane.RemoveAllNodes
m.WindowHeight = h
m.WindowWidth = w
m.Title = t
m.RootPane.LoadLayout(lout) ' <<<<<< this wont work, produces exception
End Sub