Ajout de champs à une classe approximé dans Clojure

Question

J'utilise « proxy » pour étendre différentes classes Swing dans une application GUI Clojure, généralement avec le code qui ressemble à:

(def ^JPanel mypanel 
    (proxy [JPanel] [] 
    (paintComponent [#^Graphics g] 
     (.drawImage g background-image 0 0 nil)))) 

Cela fonctionne bien, mais je ne peux Ne comprenez pas comment ajouter des champs supplémentaires à la classe nouvellement étendue, par exemple en faisant de l'image d'arrière-plan un champ qui pourrait être mis à jour par la suite. Ce serait une pratique assez facile et courante en Java.

Existe-t-il un bon moyen de le faire dans Clojure? Ou y a-t-il une autre méthode préférée pour obtenir le même effet?

Answer 1

Vous pouvez utiliser quelque chose comme ceci:

(defn ^JPanel mypanel [state] 
    (proxy [JPanel] [] 
    (paintComponent [#^Graphics g] 
     (do 
     (comment do something with state) 
     (.drawImage g background-image 0 0 nil))))) 

ou utiliser toute autre fonction extérieure/ref.

Answer 2

Auto-promotion éhontée: Il ya quelques temps, je ai wrote a blog post sur proxy et ses gotchas.