1

目前我正在尝试使用 Clojure 创建示例 Wicket 页面（在现有的 wicket 项目中）。代码如下所示：

(ns a.set.of.packages.dataview.info.EmptyNodeInfo2Panel
  (:import [a.set.of.packages.tree TreeModelBean]
           [a.set.of.packages.dataview.supplemental GenericHeaderPanel]))  

(gen-class
  :name a.set.of.packages.dataview.info.EmptyNodeInfo2Panel
  :extends org.apache.wicket.markup.html.panel.Panel
  :state state
  :init init
  :constructors {[String a.set.of.packages.tree.TreeModelBean] [String]}
  :post-init construct)

(defn -init [id model-bean]
  [[id] nil])

(defn -construct [this id model-bean]
   (.add this (GenericHeaderPanel. "header" model-bean)))

创建页面时，出现以下运行时错误：

java.lang.IllegalArgumentException: No matching method found: add for class a.set.of.packages.dataview.info.EmptyNodeInfo2Panel

即我不能调用超类方法。

反编译construct的方法如下所示：

public Object invoke(Object this, Object id, Object model_bean)
    throws Exception
{
    this = null;
    id = null;
    model_bean = null;
    return Reflector.invokeInstanceMethod(this, "add", new Object[] {
        new GenericHeaderPanel((String)"header", (TreeModelBean)model_bean)
    });
}

一切都设置在哪里null！这个问题是构造函数参数映射、不正确的反编译还是错误？

4

1 回答 1

1

我已经深入研究了 Clojure 内部结构并找到了问题的根源。标记的行不起作用。

// clojure.lang.Reflector
static public boolean paramArgTypeMatch(Class paramType, Class argType)
{
  ...
    if(paramType == argType || paramType.isAssignableFrom(argType)) // <<<
    return true;
  ...

可能存在类加载器问题（我使用 Class.forName 动态创建 EmptyNodeInfo2Panel 类）。

匹配的类是：

a.set.of.packages.dataview.supplemental.GenericHeaderPanel
org.apache.wicket.Component;

有趣的事情：当我org.apache.wicket.Component从 servlet 响应处理线程打印类名时，它按原样打印，但是当我从Reflectorthead 打印它（通过 paramType.getName()）时，它以以下形式打印：[Lorg.apache.wicket.Component. 我用的是Tomcat 5.5，有什么线索吗？

于 2009-10-28T12:05:46.147 回答