使用TCL访问另一个班级内部信息的最佳方式？

Question

基本上，我试图为我所拥有的tcl类创建一个get方法，这样我就可以在一个不在类中的proc中访问该类中的数据。例如，它看起来像这样：

itcl::class foo {

    set list []
    proc getFilterList {} {
        return $list 
    }
}

proc bar {} {
    set list itcl::foo::getFilterList 
}

但欢闹的是，列表中包含短语＆＃34; itcl :: foo :: getFilterList＆＃34;所以我显然做错了什么。对不起，如果这是一个明显的，我似乎无法弄清楚。

除了遵循选定的答案之外，我还在全球范围内提供了我的变量，这对我来说非常有用，因为从创建到操作，我确切地知道我的变量何时被修改以及何时可以访问它＆＃39;的价值观。

Answer 1

使用

proc bar {} {
    set list [itcl::foo::getFilterList]
}