在 Clojure 中向代理类添加字段

Question

我正在使用“代理”在 Clojure GUI 应用程序中扩展各种 Swing 类，通常使用如下代码：

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

这很好用，但我不知道如何向新扩展的类添加其他字段，例如使背景图像成为可以随后更新的字段。这在 Java 中是非常简单和常见的做法。

在 Clojure 中是否有很好的方法来做到这一点？或者有没有其他首选方法可以达到同样的效果？

Answer 1

你可以这样使用：

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

或使用任何其他外部函数/参考。