Почему я получаю исключение nullPointerException, когда код Clojure вызывает функцию JPanel?

Question

У меня проблемы с определением, почему мой код получает исключение nullPointer. Я пытаюсь написать свинг-приложение, используя комбинацию Java и Clojure. У меня есть функция Clojure, которая вызывает функцию в моем подклассе JPanel, и я получаю множество исключений, которые сводят меня с ума.

Я максимально упростил свой код и все еще получаю эти ошибки.

(defn draw-state
  "Draws the current state."
  [state display]
  (do-swing (.drawBlocks display)))

Вот весь подкласс JPanel, хотя я думаю, что единственной важной частью является функция drawBlocks (которая в конечном итоге заменит массив блоков):

public class TDisplay extends JPanel {


private Block[] blocks = new Block[1]; 

/**
 * Create the panel.
 */
public TDisplay() {
    setBorder(new BevelBorder(BevelBorder.LOWERED, null, null, null, null));
    setBackground(Color.WHITE);
    setLayout(new FlowLayout(FlowLayout.CENTER, 5, 5));
    blocks[0] = new Block(3, 4, 0);
}

public void paintComponent(Graphics g) {
    super.paintComponent(g);
    for (Block b : blocks) {
        if (b == null) continue;

        switch (b.colour) {
        case 0:
            g.setColor(Color.WHITE);
            break;
        case 1:
            g.setColor(Color.BLACK);
            break;
        }                               
        g.fillRect(b.x * Block.SIZE, b.y * Block.SIZE, Block.SIZE, Block.SIZE);
    }                
}

public void drawBlocks() {
    System.out.println("Hello world");
}

}

И трассировка стека:

Exception in thread "AWT-EventQueue-0" java.lang.RuntimeException: java.lang.NullPointerException
at clojure.lang.AFn.run(AFn.java:28)
at java.awt.event.InvocationEvent.dispatch(Unknown Source)
at java.awt.EventQueue.dispatchEvent(Unknown Source)
at java.awt.EventDispatchThread.pumpOneEventForFilters(Unknown Source)
at java.awt.EventDispatchThread.pumpEventsForFilter(Unknown Source)
at java.awt.EventDispatchThread.pumpEventsForHierarchy(Unknown Source)
at java.awt.EventDispatchThread.pumpEvents(Unknown Source)
at java.awt.EventDispatchThread.pumpEvents(Unknown Source)
at java.awt.EventDispatchThread.run(Unknown Source)
Caused by: java.lang.NullPointerException
at clojure.lang.Reflector.invokeNoArgInstanceMember(Reflector.java:263)
at core$draw_state$fn__401.invoke(core.clj:43)
at clojure.lang.AFn.run(AFn.java:24)
... 8 more

У меня такое ощущение, что я что-то упускаю действительно очевидно, и я был бы признателен за любую помощь.

Спасибо!

Answer 1

Как насчет кода, который вызывает состояние рисования - возможно ли, что для отображения передаются нули?