(load "jlib/Swing.scm") ;a little functional language for GUI creation
(define w
(window "Test"
(button "exit" red
(action(lambda(e)(exit))))))
(.pack w)
(.show w)
Resulting code is much simpler than straight JScheme + javadot
(import "javax.swing.*") (define w (JFrame. "Test")) (define eb (JButton. "Exit")) (.setBackground eb Color.red$) (.addActionListener eb (Listener. (lambda(e) (System.exit 0)))) (.add (.getContentPane w) eb) (.pack w) (.show w)
LL2, Saturday 9 November 2002, Tim Hickey/Ken Anderson