Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private HTMLEditor1 As HTMLEditor
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
SetToolbar(HTMLEditor1, 0, False)
SetToolbar(HTMLEditor1, 1, False)
End Sub
Sub SetToolbar (Editor As HTMLEditor, Index As Int, State As Boolean)
Dim jo As JavaObject = Editor
Dim nodes() As Object = jo.RunMethodJO("lookupAll", Array(".tool-bar")).RunMethod("toArray", Null)
Dim toolbar As JavaObject = nodes(Index)
toolbar.RunMethod("setVisible", Array(State))
toolbar.RunMethod("setManaged", Array(State))
End Sub