Dodawanie pól do zastępowanym klasy w Clojure

Question

używam „proxy” w celu rozszerzenia różnych klas Swing Clojure w aplikacji GUI, zazwyczaj z kodem, który wygląda mniej więcej tak:

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

Działa to dobrze, ale mogę • wymyślić, jak dodać dodatkowe pola do nowo rozszerzonej klasy, na przykład uczynić obraz tła polem, który można następnie zaktualizować. Byłoby to dość łatwą i powszechną praktyką w Javie.

Czy jest to dobry sposób na zrobienie tego w Clojure? Czy istnieje inna preferowana metoda osiągnięcia tego samego efektu?

Answer 1

Można użyć coś takiego:

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

lub innej zewnętrznej funkcji/ref.

Answer 2

Bezwstydna autopromocja: I wrote a blog post jakiś czas temu o proxy i jego gotchach.