;; Java final JFrame w = new JFrame("Test"); JButton eb = new JButton("Exit"); eb.setBackground(Color.red); eb.addActionListener(new ActionListener(){ public void actionPerformed(ActionEvent e) { System.exit(0);}}); w.getContentPane().add(eb); w.pack(); w.show();
;; JScheme (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