LotusScript Tells Java Run JFreeChart

'@AppName Döcu
'@author: Dököll Solutions, Inc.
'@version 2012.04.27.5.05.AM
'Program: Run JFreeChart Action
'Code to run JFreeChart Bar Chart


'call LS2J
Uselsx "*javacon"
'call Java (Script) Library
Use "JFreeChartWithCSVDataJavaAgent"

*You can add the above code in your Options
…
…
'button code
Sub Click(Source As Button)
	' jump down to error handling, as issues arise...
	On Error Goto ErrorHandlerMsg
	'...
	Dim JFreeChartScriptLibClass As JavaClass
	Dim JFreeChartScriptLibObject As JavaObject
	' set up a session
	Dim JFreeChartSession As New JavaSession()
	' load JFreeChartScriptLibClass
	Set JFreeChartScriptLibClass = JFreeChartSession.GetClass("JFreeChartWithCSVDataJavaAgent")
	' Call JFreeChartScriptLibClass, 
	Set JFreeChartScriptLibObject = JFreeChartScriptLibClass.CreateObject()
	'Main method in Java code
	Call JFreeChartScriptLibObject.doLoadJFreeChart()
	'...
	Exit Sub
	'pick up errors
ErrorHandlerMsg:
	'set up variable to load errors
	Dim JFreeChartError As JavaError
	'...
	Set JFreeChartError = JFreeChartSession.GetLastJavaError 
	'...
	Msgbox JFreeChartError.errorMsg + ": " + JFreeChartError.stackTrace 	
	'end of program...
	Exit Sub
End Sub