Hinzufügen von Feldern zu einer Proxy-Klasse in Clojure

Question

I „Proxy“ bin mit verschiedenen Swing-Klassen in einer Clojure GUI-Anwendung zu erweitern, in der Regel mit dem Code, der so etwas wie folgt aussieht:

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

kann dies funktioniert gut, aber ich Finde heraus, wie man der neu erweiterten Klasse zusätzliche Felder hinzufügt, zum Beispiel das Hintergrundbild zu einem Feld macht, das später aktualisiert werden kann. Dies wäre ziemlich einfach und gängige Praxis in Java.

Gibt es einen guten Weg, dies in Clojure zu tun? Oder gibt es eine andere bevorzugte Methode, um denselben Effekt zu erzielen?

Answer 1

Sie können so etwas wie folgt verwenden:

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

oder andere äußere Funktion/ref verwenden.

Answer 2

Shameless Eigenwerbung: I wrote a blog post vor einer Weile über Proxy und seine Fallstricke.