clojure 中的 SwingWorker 执行

Question

在 clojure 中，您可以创建 SwingWorker 代理并实现 doInBackground 和 do 方法。您将如何继续调用 Swingworker 的执行方法？

Answer 1

您可以使用标准 Java 互操作创建和调用 SwingWorker，例如：

;; define a proxy that extends SwingWorker
(def my-swing-worker 
  (proxy [SwingWorker] []
    (doInBackground []
      (reduce + (range 1000000)))))

;; run the SwingWorker
(.execute my-swing-worker)

;; Get the result
(.get my-swing-worker)
=> 499999500000

但是，通常在 Clojure 中您不会直接使用 SwingWorkers。 Clojure 中已经有一个功能可以提供 SwingWorker 的功能：future 使用单独的线程来计算长时间运行的任务，并允许您稍后获取结果。用法示例：

;; define and launch a future
(def my-future 
  (future 
    (reduce + (range 1000000))))

;; get the result (will wait for future to complete if needed)
@my-future
=> 499999500000

我认为大多数人都会同意“纯 Clojure”方式对于运行后台任务来说更简单、更惯用。我能想到更喜欢 SwingWorker 的唯一原因是，如果您正在使用它提供的一些特定 GUI 集成功能（例如，触发属性更改事件的能力）。