Skip to content

Instantly share code, notes, and snippets.

@amalloy

amalloy/core.clj

Forked from Raynes/core.clj
Created March 23, 2011 18:21
Show Gist options
  • Save amalloy/883633 to your computer and use it in GitHub Desktop.
Save amalloy/883633 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
core.clj
(import java.awt.event.ActionListener)
(defn add-action [cmp fn]
(doto cmp
(.addActionListener (doto (proxy [ActionListener] [])
(update-proxy {"actionPerformed" fn})))))
(defn add-action [cmp fn]
(doto cmp
(.addActionListener (reify ActionListener
(actionPerformed [this e] (fn this e))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment