Snippet de código en Kawa con Swing

gistfile1.scm

;; -*- coding: utf-8; mode: Scheme -*-
;; Snippet de código utilizando Swing en Kawa
(define-alias JFrame javax.swing.JFrame)
(define-alias JLabel javax.swing.JLabel)
(let ((frame1 (JFrame "Ventana Hola")))
  (*:add frame1 (JLabel "Hola a todos desde Kawa"))
  (*:pack frame1)
  (*:setDefaultCloseOperation frame1 JFrame:EXIT_ON_CLOSE)
  (*:setVisible frame1 #t))