Problem running Javafx hello world application

[Damien MATTEI]

just for test, if you try this:
(define (main)
(let ((tst (invoke-static <org.kawa.javafx> 'launch)))
'())
)
does it change something?

i  think the probleme comes that you try to return a static object at the level (toplevel or REPL) of a java function,
if the main function is dynamically generated it can not return a static field, for incomatibility reason, i had such incompatibility problem in a pure java program.

Damien

Le Wednesday 07 June 2017 08:27:17 Tony West, vous avez écrit :
> Hi,
> 
> Based on what I've seen in the mailing list, I've got the following simple Javafx application:
> 
> (module-name <org.kawa.javafx>)
> (module-extends <javafx.application.Application>)
> (module-export start create-button)
> (module-compile-options main: #t)
> 
> ;;
> ;;; Application
> ;;
> 
> (define (start (primary-stage :: <javafx.stage.Stage>)) :: <void>
>   (invoke primary-stage 'setTitle "Hello World!")
>   (let ((root-pane (<javafx.scene.layout.StackPane>))
>         (button (create-button
>                  text: "Say 'Hello World'"
>                  event-handler: (lambda (event) (format #t "Hello World!")))))
>     (invoke (invoke root-pane 'getChildren) 'add button)
>     (invoke primary-stage 'setScene (<javafx.scene.Scene> root-pane 300 250))
>     (invoke primary-stage 'show)))
> 
> ;;
> ;;; Utilities
> ;;
> 
> (define (create-button #!key (text #f) (event-handler #f)) :: <javafx.scene.control.Button> 
>   (let ((button :: <javafx.scene.control.Button> (<javafx.scene.control.Button>)))
>     (when text
>       (invoke button 'setText text))
> 
>     (when event-handler
>       (invoke button 'setOnAction (object (<javafx.event.EventHandler>)
>                                     ((handle (event :: <javafx.event.ActionEvent>))
>                                       (event-handler event)))))
> 
>     button))
> 
> 
> ;;
> ;;; Main
> ;;
> 
> (define (main)
>   (invoke-static <org.kawa.javafx> 'launch))
> 
> (main)
> 
> When compiling I get the following:
> 
> E:\Work\kawa>kawa --main -C hello-world.scm
> Jun 07, 2017 4:16:42 PM org.jline.utils.Log logr
> WARNING: Unable to create a system terminal, creating a dumb terminal (enable debug logging for more information)
> (compiling hello-world.scm to org.kawa.javafx)
> 
> And when I run it I get the following:
> 
> E:\Work\kawa>java org.kawa.javafx
> java.lang.reflect.InvocationTargetException
>         at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
>         at sun.reflect.NativeMethodAccessorImpl.invoke(Unknown Source)
>         at sun.reflect.DelegatingMethodAccessorImpl.invoke(Unknown Source)
>         at java.lang.reflect.Method.invoke(Unknown Source)
>         at com.sun.javafx.application.LauncherImpl.launchApplicationWithArgs(LauncherImpl.java:389)
>         at com.sun.javafx.application.LauncherImpl.launchApplication(LauncherImpl.java:328)
>         at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
>         at sun.reflect.NativeMethodAccessorImpl.invoke(Unknown Source)
>         at sun.reflect.DelegatingMethodAccessorImpl.invoke(Unknown Source)
>         at java.lang.reflect.Method.invoke(Unknown Source)
>         at sun.launcher.LauncherHelper$FXHelper.main(Unknown Source)
> Caused by: java.lang.IncompatibleClassChangeError: Expected static field org.kawa.javafx$frame.$main
>         at org.kawa.javafx.main(hello-world.scm)
>         ... 11 more
> Exception running application org.kawa.javafx
> 
> I would be really grateful if someone could point out what I am doing wrong.
> 
> Thanks.
> 
> Tony
> 
>