ITCL:如何显示条目中的值？

Question

在我的代码中，条目不能显示值。如何纠正它？谢谢

package require Itcl
namespace eval np {} {
  itcl::class myTable {
    variable tableValue
    constructor {} {
      array set tableValue {1 a 2 b 3 c 4 d}
    }

    proc build {} {
      destroy .e
      entry .e -textvariable [namespace current]::tableValue(1)
      pack .e
    }
  }
}
np::myTable tb
tb build

Answer 1

有一些事情是不太正确的。首先，值是而不是 [namespace current]::tableValue(1)，这是变量名。如果需要该值，则必须在本例中使用set：

entry .e -textvariable [set [namespace current]::tableValue(1)]

但这还不够，因为上面的代码设置了text变量(保存条目值的变量名)，但实际上并没有在条目中插入该值。

您可能希望使用insert来实现此特定目的：

proc build {} {
  destroy .e
  entry .e
  .e insert end [set [namespace current]::tableValue(1)]
  pack .e
}