Sub menuHandler_Action
Dim mi As MenuItem = Sender
Dim script As String = mi.Tag
If File.IsDirectory(script,"") = False Then
If File.Exists(script,"") = True Then
Private oNas As jNashorn
Private oJFX As JFX
oNas.enginePut("MessageBox",mb)
oNas.enginePut("MenuItem",mi)
oNas.enginePut("MainForm",MainForm)
oNas.enginePut("MainText",taMainText)
oNas.enginePut("JFX",oJFX)
oNas.enginePut("gbDirty",gbDirty)
oNas.enginePut("gsVersion",gsVersion)
oNas.enginePut("scriptPath",script)
oNas.enginePut("gsPath",gsPath)
oNas.enginePut("gsFile",gsFile)
oNas.enginePut("joMainForm",AsJavaObject(MainForm.RootPane))
oNas.enginePut("tfStatus",tfStatus)
oNas.enginePut("tfCursor",tfCursor)
oNas.enginePut("DirApp",File.DirApp)
oNas.enginePut("DirAssets",File.DirAssets)
oNas.enginePut("DirTemp",File.DirTemp)
Try
oNas.evalFile(script)
If (Null <> oNas.engineGet("gsPath")) Then
gsPath = oNas.engineGet("gsPath")
End If
If (Null <> oNas.engineGet("gsFile")) Then
gsPath = oNas.engineGet("gsFile")
End If
Catch
mb.show(LastException.Message,gsVersion)
End Try
oNas = Null
End If
End If
End Sub