Changes for clojure.core/proxy

Kototama on Tue, 19 Oct 2010
;; adding a mouse pressed callback to a Swing component:

(defn add-mousepressed-listener
  [component f & args]
  (let [listener (proxy [MouseAdapter] []
                     (mousePressed [event]
                                   (apply f event args)))]
    (.addMouseListener component listener)
    listener))