Leiningen下Clojure UI应用程序中AWT异常的跟踪

Question

关于Clojure中第一个UI程序的SO问题，我创建了一个新的leiningen应用程序项目：

lein new app a-ui-app

(defn -main
  "See https://stackoverflow.com/questions/2792451/improving-my-first-clojure-program?rq=1."
  [& args]
  ;; work around dangerous default behaviour in Clojure
  (alter-var-root #'*read-eval* (constantly false))

  (doto panel
        (.setFocusable true)
        (.addKeyListener panel))

  (doto frame
        (.add panel)
        (.pack)
        (.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)
        (.setVisible true))

  (loop []
        (draw-rectangle panel @x @y)
        (Thread/sleep 10)
        (recur))
  )

lein run

lein uberjar
java -jar ./target/a-ui-app-0.1.0-SNAPSHOT-standalone.jar 

线程“Awt-EventQueue-0”java.lang.IllegalArgumentException中出现异常：没有匹配子句：在a_ui_app.core处的157$FN__16$FN__21$FN__22处的Invoke(core.clj:19)在clojure.lang.afn.call(afn.java:18)在clojure.lang.lockingTransaction.run(lockingTransaction.java:263)在clojure.lang.lockingTransaction.runinTransaction(lockingTransaction.java:231)在

我没有对project.clj做任何更改--只是使用了Leiningen生成的一个。

我想知道是怎么回事。我对Java线程并不了解。问题是否与leiningen启动应用程序Java线程的方式有关？是无法避免的吗？如果不是，我该如何修复它，无论是对于这个小示例程序，还是作为使用UI线程的未来项目的项目模式（我认为它是awt-eventqueue-0)。

Answer 1

我不知道为什么你会准确地得到那个错误，但我得说你做错了几件事：秋千是一个复杂的野兽；）

Swing不是线程安全的。关于在EDT（事件调度线程/UI线程）上可以做什么和不能做什么的“规则”随着时间的推移而改变...在某个时候，Sun决定修改Swing组件的所有操作都应该在EDT上完成。

因此，从另一个线程绘制您的矩形，忙着做一个旋转循环是一个很大的禁忌。此外，您绘制图形的方式也不正确：您不应该直接从其他线程获取图形对象并修改它（这是一种超级黑客，应该会触发疯狂的闪烁）。一种“正确”的Swing方法是重写PaintComponent(GraphicsG)Java方法并在那里进行绘制：因此每次需要重绘组件时，都会正确地重绘它。

(import java.awt.Color)
(import java.awt.Dimension)
(import java.awt.event.KeyListener)
(import javax.swing.JFrame)
(import javax.swing.JPanel)

(def x (ref 0))
(def y (ref 0))

(def panel
  (proxy [JPanel KeyListener] []
    (paintComponent [g]
      (proxy-super paintComponent g)
      (doto g
        (.setColor (java.awt.Color/WHITE))
        (.fillRect 0 0 100 100)
        (.setColor (java.awt.Color/BLUE))
        (.fillRect (* 10 @x) (* 10 @y) 10 10)))
    (getPreferredSize [] (Dimension. 100 100))
    (keyPressed [e]
      (let [keyCode (.getKeyCode e)]
        (if (== 37 keyCode) (dosync (alter x dec))
        (if (== 38 keyCode) (dosync (alter y dec))
        (if (== 39 keyCode) (dosync (alter x inc))
        (if (== 40 keyCode) (dosync (alter y inc))))))
        (.repaint this)
        ))
    (keyReleased [e])
    (keyTyped [e])))

(def frame (JFrame. "Test"))

(defn -main [& args]

  (doto panel
        (.setFocusable true)
        (.addKeyListener panel))

  (doto frame
        (.add panel)
        (.pack)
        (.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)
        (.setVisible true)))

我不是deref'的粉丝，但是paintcomponent和key listener触发器都保证在EDT上发生，所以在您的情况下读数应该是一致的。如果我是你，我仍然会使用一个xydef。

对于JPanel（它也是一个KeyListener）和-main函数（它将KeyListener添加到自己的），我也有点困惑:(doto panel(.addkeylistener panel))感觉很奇怪。可能还可以，我不知道：只是感觉怪怪的：）

关于您的异常，我不知道，但是Swing EDT实际上偶尔会抛出异常，因为Swing有相当多的bug，而且Swing的正确使用是如此复杂，以至于程序往往会犯相当多的错误。根据平台/JVM，要么捕获异常并使EDT继续运行，要么自动启动一个新的EDT。通常情况下，您不应该能够“崩溃”EDT，因为如果EDT崩溃，它应该自动重新启动。这就是为什么你看到了例外，却又说你的程序仍然“工作得很好”的原因。

我想说，这个异常和神秘的堆栈跟踪与Swing不是线程安全的有关，并且您做了一些奇怪的事情：旋转循环，获取面板的底层图形对象，然后搞乱它，但我真的不确定。

经过上述修改的代码似乎正在精细地、毫不眨眼地执行您想要执行的操作。

希望有帮助。