Podcast Recursivo Ejemplo1: Scheme Kawa

swing1.scm

;; -*- coding:utf-8; mode: Scheme -*-
(define-alias JFrame javax.swing.JFrame)
(define-alias Runnable java.lang.Runnable)
(define-alias EventQueue java.awt.EventQueue)

(define-simple-class MyApp (Runnable)
  ;; members
  (main-wnd ::JFrame
    init: (JFrame "Window Title"
           default-close-operation: JFrame:EXIT_ON_CLOSE
           ||: (javax.swing.JLabel "Hello from Kawa")))
           
  ;; methods
  ((run) ;; Implements Runnable interface
   (main-wnd:setSize 640 480)
   (main-wnd:pack)
   (main-wnd:setVisible #t))

  ((main args ::String[]) ::void allocation: 'static
   (EventQueue:invokeLater (MyApp))))