Clojure swing исключение «Нет реализации метода:: children» - PullRequest
Новая
       38

Clojure swing исключение «Нет реализации метода:: children»

0 голосов
/ 03 октября 2018

Изучение того, как сделать GUI с clojure с помощью библиотеки свинга и редактора затмений.В настоящее время я застрял с проблемой выполнения моего приложения через leiningen в Eclipse.

Я создаю грид на Java и пытаюсь подключить все имена виджетов в коде Java к идентификатору clojure для дальнейшей манипуляции, как указано в официальной документации github, следующим образом:

core.clj 

 (ns my.core
  (:gen-class)
  (:use [seesaw.core])
  (:require [seesaw.selector :as selector]))

(defn identify
  [root]
  (doseq [w (select root [:*])]
    (if-let [n (.getName w)]
      (selector/id-of! w (keyword n))))
  root)


(defn my-form
  []
  (let [form (identify (my.Gui.))]

    form))

(defn -main [& args]
;;  With two follow line of code project compiles fine without any errors if replace bottom lines
;;  (invoke-later
;;    (show! (frame :title "Hello" :content (button :text "Push me")))))
  (invoke-later
   (let [form  (my-form)
         output (-> form pack! show!)]
       nil))

project.clj 

(defproject my "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :dependencies [[org.clojure/clojure "1.8.0"]
[seesaw "LATEST"]]
  :main ^:skip-aot my.core
  :java-source-paths ["src"])

Gui.java 

package my;

import java.awt.EventQueue;

import javax.swing.JFrame;
import com.jgoodies.forms.layout.FormLayout;
import com.jgoodies.forms.layout.ColumnSpec;
import com.jgoodies.forms.layout.RowSpec;
import net.miginfocom.swing.MigLayout;
import javax.swing.JComboBox;
import javax.swing.JRadioButton;
import java.awt.Color;

public class Gui{

private JFrame frame;

/**
 * Launch the application.
 */
public static void main(String[] args) {
    EventQueue.invokeLater(new Runnable() {
        public void run() {
            try {
                Gui window = new Gui();
                window.frame.setVisible(true);
            } catch (Exception e) {
                e.printStackTrace();
            }
        }
    });
}

/**
 * Create the application.
 */
public Gui() {
    initialize();
}

/**
 * Initialize the contents of the frame.
 */
private void initialize() {
    frame = new JFrame();
    frame.getContentPane().setBackground(Color.RED);
    frame.setForeground(Color.PINK);
    frame.setBackground(Color.ORANGE);
    frame.setBounds(100, 100, 450, 300);
    frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
    frame.getContentPane().setLayout(null);

    JComboBox comboBox = new JComboBox();
    comboBox.setName("cmb");
    comboBox.setBackground(Color.CYAN);
    comboBox.setForeground(Color.CYAN);
    comboBox.setBounds(10, 11, 101, 50);
    frame.getContentPane().add(comboBox);

    JRadioButton rdbtnNewRadioButton = new JRadioButton("New radio button");
    rdbtnNewRadioButton.setName("rdbtn");
    rdbtnNewRadioButton.setBackground(Color.RED);
    rdbtnNewRadioButton.setForeground(Color.MAGENTA);
    rdbtnNewRadioButton.setBounds(10, 84, 109, 23);
    frame.getContentPane().add(rdbtnNewRadioButton);
}
}

Сообщение об ошибке 

Compiling 1 source files to C:\Users\Samsung\my\target\classes
Exception in thread "AWT-EventQueue-0" java.lang.IllegalArgumentException: No implementation of method: :children of protocol: #'seesaw.util/Children found for class: nil
    at clojure.core$_cache_protocol_fn.invokeStatic(core_deftype.clj:568)
    at clojure.core$_cache_protocol_fn.invoke(core_deftype.clj:560)
    at seesaw.util$eval118$fn__119$G__109__124.invoke(util.clj:151)
    at clojure.zip$children.invokeStatic(zip.clj:80)
    at clojure.zip$down.invokeStatic(zip.clj:115)
    at clojure.zip$down.invoke(zip.clj:109)
    at seesaw.selector$children_locs.invokeStatic(selector.clj:313)
    at seesaw.selector$children_locs.invoke(selector.clj:312)
    at seesaw.selector$zip_select_nodes_STAR_$select1__1431.invoke(selector.clj:318)
    at seesaw.selector$zip_select_nodes_STAR_$fn__1436.invoke(selector.clj:320)
    at clojure.core$map$fn__4785.invoke(core.clj:2644)
    at clojure.lang.LazySeq.sval(LazySeq.java:40)
    at clojure.lang.LazySeq.seq(LazySeq.java:49)
    at clojure.lang.RT.seq(RT.java:521)
    at clojure.core$seq__4357.invokeStatic(core.clj:137)
    at clojure.core$apply.invokeStatic(core.clj:641)
    at clojure.core$mapcat.invokeStatic(core.clj:2674)
    at clojure.core$mapcat.doInvoke(core.clj:2674)
    at clojure.lang.RestFn.invoke(RestFn.java:423)
    at seesaw.selector$zip_select_nodes_STAR_.invokeStatic(selector.clj:320)
    at seesaw.selector$zip_select_nodes_STAR_.invoke(selector.clj:315)
    at seesaw.selector$select_nodes_STAR_.invokeStatic(selector.clj:324)
    at seesaw.selector$select_nodes_STAR_.invoke(selector.clj:322)
    at seesaw.selector$select.invokeStatic(selector.clj:364)
    at seesaw.selector$select.invoke(selector.clj:358)
    at seesaw.core$select.invokeStatic(core.clj:3587)
    at seesaw.core$select.invoke(core.clj:3517)
    at my.core$identify.invokeStatic(core.clj:8)
    at my.core$identify.invoke(core.clj:6)
    at my.core$my_form.invokeStatic(core.clj:16)
    at my.core$my_form.invoke(core.clj:14)
    at my.core$_main$fn__5440.invoke(core.clj:25)
    at clojure.lang.AFn.applyToHelper(AFn.java:152)
    at clojure.lang.AFn.applyTo(AFn.java:144)
    at clojure.core$apply.invokeStatic(core.clj:646)
    at clojure.core$apply.invoke(core.clj:641)
    at seesaw.invoke$invoke_later_STAR_$fn__744.invoke(invoke.clj:14)
    at clojure.lang.AFn.run(AFn.java:22)
    at java.awt.event.InvocationEvent.dispatch(InvocationEvent.java:311)
    at java.awt.EventQueue.dispatchEventImpl(EventQueue.java:758)
    at java.awt.EventQueue.access$500(EventQueue.java:97)
    at java.awt.EventQueue$3.run(EventQueue.java:709)
    at java.awt.EventQueue$3.run(EventQueue.java:703)
    at java.security.AccessController.doPrivileged(Native Method)
    at java.security.ProtectionDomain$JavaSecurityAccessImpl.doIntersectionPrivilege(ProtectionDomain.java:80)
    at java.awt.EventQueue.dispatchEvent(EventQueue.java:728)
    at java.awt.EventDispatchThread.pumpOneEventForFilters(EventDispatchThread.java:205)
    at java.awt.EventDispatchThread.pumpEventsForFilter(EventDispatchThread.java:116)
    at java.awt.EventDispatchThread.pumpEventsForHierarchy(EventDispatchThread.java:105)
    at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:101)
    at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:93)
    at java.awt.EventDispatchThread.run(EventDispatchThread.java:82)

Не могу понять, где я допустил ошибку, Java-код не был модифицирован после создания с помощью плагина Window Builder для Eclipse, а сценарий clojure был создан в документации.Возможно, плагин Window Builder для Eclipse устарел или больше не используется для создания приложений с графическим интерфейсом.

Будем весьма благодарны за любые советы и предложения.

1 Ответ

0 голосов
/ 03 октября 2018

Ваш ключ здесь: 

Exception in thread "AWT-EventQueue-0" java.lang.IllegalArgumentException: No implementation of method: :children of protocol: #'seesaw.util/Children found for class: nil
    at clojure.core$_cache_protocol_fn.invokeStatic(core_deftype.clj:568)

Вы получаете значение nil (java null) и пытаетесь обработать его как объект, вызвав функцию :children.Больше подсказок: 

 at my.core$identify.invokeStatic(core.clj:8)
    at my.core$identify.invoke(core.clj:6)
    at my.core$my_form.invokeStatic(core.clj:16)
    at my.core$my_form.invoke(core.clj:14)
    at my.core$_main$fn__5440.invoke(core.clj:25)

Проблема начинается со строки 8: 

(ns my.core
  (:gen-class)
  (:use [seesaw.core])
  (:require [seesaw.selector :as selector]))

(defn identify
  [root]
  (doseq [w (select root [:*])]   ;  <=  ***** PROBLEM IS NEAR HERE *****
    (if-let [n (.getName w)]
      (selector/id-of! w (keyword n))))
  root)

Я бы предположил, что ваш конструктор (my.Gui.) завершился неудачно и вернул nil.Я бы отлаживал дальше, используя такие строки, как (println :101 some-val), где :101 предоставляет удобный способ добавить идентификатор в каждую строку.

...