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

COBOL	awk	C言語	D言語	GO言語	Lua	Vim
bash	Perl	Gauche	Clojure	CLISP	EmacsLisp	VimScript
tcsh	Ruby	Groovy	Java	C#	VBScript	JavaScript
Io言語	Python	Erlang	Scala	VB.NET	Excel/VBA	PHP
Tcl	Haskell		OCaml	PowerShell	Windows	Unix/Linux

Clojure > (Swing)Buttonを使う

gui-button.clj

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 (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 gui-button.clj

* 確認環境 Debian Linux(Wheezy)