Hello,

Is there any chance to get a list of args like it is for functions
defined by defn ?
I would like to use (count (first (:argslist (meta (fn[ a ] (println
a)))))) for my function which would return wrapper which can accept
optional arguments. Optional args would be decelerated not by caller
but by listener.

For example:

(defn button[ message action ]
        (let [btn (JButton. message) afn (fnalign action) ]
                (println "got" (meta action) )
                (doto btn
                        (.addActionListener (proxy[ActionListener][]
                                (actionPerformed[ a ] (afn btn)))))))

and later both usage would work:

(button "Show" (fn[ bt ] (alert (.getText bt))  ))

(button "Show" (fn[ ] (alert "woow")  ))

thanks to magic fnalign function which returns wrapper accepting vary
number of args.

Thanks in advance!

-- 
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your 
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en

Reply via email to