6

我已经从尝试通过 Penumbra 使用 OpenGL 转向尝试使用其 Graphics 上下文直接在 JPanel 上绘图。

这会很棒，除非我遇到了一些麻烦......我编译了我的代码，并且在 25 次中大约有 1 次，图形（它是示例的矩形）绘制得很好。其他〜24次，它没有。

这是我的代码：

(def main
  (let [frame (JFrame. "This is a test.")
        main-panel (JPanel. (GridBagLayout.))
        tpan (proxy [JPanel] [] (getPreferredSize [] (Dimension. 600 400)))]

    (doto frame
      (set-content-pane
       (doto main-panel
         (grid-bag-layout
          :gridx 0 :gridy 0
          tpan
          :gridx 0 :gridy 1
          xy-label)))
      (pack-frame)
      (set-visible))

    (draw-line tpan Color/RED 250 250 50 50)))

功能draw-line如下：

(defn draw-line [panel color x y w h]
  (let [graphics (.getGraphics panel)]
    (doto graphics
      (.setColor color)
      (.drawRect x y w h))))

我不知道发生了什么。起初我以为是我正在研究的裁判，但后来我把它们拿出来，仍然有这些问题。我也重置了 lein 和 slime/swank 和 emacs。我很困惑。

像往常一样，任何帮助将不胜感激。我希望这是一个有答案的问题！最近，我似乎在问不可能的事情：）

4

2 回答 2

5

确保您始终在 EDT 上。如果您看到您的 GUI 随机运行，这通常是原因。竞态条件对 swing 至关重要，因为它被设计为完全单线程的。

您可能会尝试，只是为了看看，找到任何与摆动组件交互的方法，并让它打印出 Thread.getCurrentThread().toString() （或非常接近的东西）。

它应该总是打印出一个线程名称，并且您会在某处看到嵌入的字母 AWT。您甚至可以存储该线程，在每次调用 Swing 时对其进行测试，并断言它是否不相同。

实际上我不知道为什么 Sun 从来没有构建一个“调试”版本的 JDK，当这样的事情发生时会断言（比如当从非 awt 线程调用一些摆动线程时......）

于 2010-07-29T21:25:25.277 回答
4

您应该paintComponent在面板中覆盖。（选择JPanel可能不是最好的 - 使用JComponent并确定set-opaque它。）

另外，我想你应该在 AWT EDT 上。

于 2010-07-29T21:19:20.853 回答