clojure awt canvas example

(def rob (java.awt.Robot.))
(def rect (java.awt.Rectangle. 0 0 500 500))
(def image (. rob createScreenCapture rect))

(defn display-image
  [image]
  (let [frame (doto (javax.swing.JFrame. "Display Image")
                (.setBounds 0 0 (. image getWidth) (. image getHeight))
                (.setVisible true))
        cv (proxy [java.awt.Canvas] []
             (paint [g] (. g drawImage image nil nil))
             (update [g] (. g drawImage image nil nil)))]
    (.add (.getContentPane frame) cv)))

(display-image image)