Hello.scm

(module-compile-options main: #t)
(module-extends javafx.application.Application)
(import (class javafx.stage Stage)
        (class javafx.scene Scene)
        (class javafx.scene.layout StackPane)
        (class javafx.scene.control Button)
        (class javafx.application Application))

(define (start (stage :: Stage))
  (let* ((btn (Button
                text: "Say 'Hello World'"
                onAction: (lambda (e) (display "Hello, World!\n"))))
         (root (StackPane btn))
         (scene (Scene root 300 250)))
    (set! stage:scene scene)
    (set! stage:title "JavaFX in Kawa")
    (stage:show)))

(Application:launch Hello (String[] (command-line)))