Skip to content

Instantly share code, notes, and snippets.

@Raynes

Raynes/core.clj

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