説明のないとってもシンプルなサンプルプログラム集

PHP	Gawk	C言語	D言語	GO言語	Excel2007	COBOL
Bash	Perl	Gauche	Clojure	CLISP	EmacsLisp	VimScript
Tcl	Ruby	Groovy	Java	C#		Vim
	Python	Erlang	Scala	OCaml	VBScript	JavaScript
Io言語	Haskell				Windows	Linux

Clojure > (Swing)Buttonを使う

swing-button.clj

 (import '(javax.swing JFrame JButton)
        '(java.awt.event ActionListener)
        '(java.awt GridLayout))
 
(let [frame (new JFrame)
      bt (new JButton "PUSH TO EXIT")]
    (. bt
        (addActionListener
           (proxy [ActionListener] []
                (actionPerformed [evt]
                    (System/exit 0)))))
    (doto frame 
                (.setLayout (new GridLayout 1 1))
                (.add bt)
                (.setSize 300 200)
                (.setVisible true)))

$ clojure swing-button.clj

* 確認環境 Debian Linux(Wheezy)