11 lines
234 B
Clojure
11 lines
234 B
Clojure
|
(ns hello-seesaw.core
|
||
|
|
(:use seesaw.core))
|
||
|
|
|
||
|
|
(defn -main [& args]
|
||
|
|
(invoke-later
|
||
|
|
(-> (frame
|
||
|
|
:listen [:key-pressed (fn [e] (println (.getKeyChar e) " key pressed"))]
|
||
|
|
:on-close :exit)
|
||
|
|
pack!
|
||
|
|
show!)))
|