Tcl / NX将对象作为参数传递

Question

我正在尝试将对象传递给将其设置为新对象的属性的方法。到目前为止，这是我的代码：

   nx::Class create Node {}


   nx::Class create Edge {
        :property node1:::Node
        :property node2:::Node
   }

   nx::Class create Graph {
    :variable edges {}

    :public method add {newNode1 newNode2} {
        ::Edge create newEdge -node1 $newNode1 -node2 $newNode2 
       }
    }

我无法将实际对象传递给此add方法。

    ::Node create n1
    ::Node create n2 


    ::Graph create G
    G add n1 n2

告诉我边缘创建期望一个对象但得到“n1”。当我尝试用$ n1和$ n2取消引用n1和n2时，我得到“无法读取:: n1没有这样的变量”。不确定何时适当取消引用时间，或者我做错了什么。