Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim mb As MenuBar
End Sub ' Process_Globals
Sub AppStart( Form1 As Form, Args() As String )
MainForm = Form1
MainForm.RootPane.LoadLayout( "Main" ) 'Load the layout file.
MainForm.Show
mb.Initialize( "" )
MainForm.RootPane.AddNode( mb, 0, 0, -1, -1 )
' Add Settings menu to menu bar
Dim SettingsMenu As Menu
SettingsMenu.Initialize( "Settings", "" )
mb.Menus.Add( SettingsMenu )
' Add Serial Ports submenu to Settings menu
Dim SerialPort As Menu
SerialPort.Initialize( "Ports", "" )
SettingsMenu.MenuItems.Add( SerialPort )
' add Baud Rates
Dim mnBaudrates As Menu
mnBaudrates.Initialize( "Baudrates", "" )
SettingsMenu.MenuItems.Add( mnBaudrates )
' add separator
Dim s As String = "-"
SettingsMenu.MenuItems.Add( s )
' add COM TimeOut
Dim m As MenuItem
m.Initialize( "COM Time Out", "mCOMTimeOut" )
SettingsMenu.MenuItems.Add( m )
End Sub