tree - TreeCtrl 中的等效命令

Question

我已经使用 Bwidgets 构建了一个树视图，现在我正在尝试将其转换为 TreeCtrl，但我无法在 TreeCtrl 中找出 Bwidget 命令的等效命令：

$tree itemcget $node -data

Answer 1

似乎没有任何机制可以将用户指定的数据直接附加到TkTreeCtrl中的节点。解决这个问题的最简单方法是将数据存储在一个数组中，而不是由节点的 ID（以及树小部件名称，如果您在应用程序中使用多个）索引。

# Set the value (assuming you're only making one item here)
set id [$tree item create ...]
set ::userdata($tree,$id) $yourDataItem

# Get the value for a particular item
set id [$tree item id $itemDesc]
puts "the data for $id is $::userdata($tree,$id)"

# Remove the value when removing the item
set id [$tree item id $itemDesc]
unset ::userdata($tree,$id)
$tree item delete $id

我看到很多人建议将 TkTreeCtrl 包装在一个类中（例如，Snit、TclOO、XOTcl），以使其在特定情况下更易于使用。这是那种包装得很好的东西……</p>

Answer 2

关于这个问题，我的项目负责人提出了一个非常简单的解决方案，用于将用户指定的数据附加到 Treectrl 节点，

您创建嵌入数据的节点

$tree item element configure $itemID $columnID elemText -text $text -data $data

然后，当您想将数据用于任何目的时

set dataObj [$tree item element cget $itemID $columnID elemText -data]

现在数据保存在 dataObj 中，您可以将其用于任何操作、操作，它为我提供了 Bwidget tree 命令的确切功能 -

$tree itemcget $node -data ------> which i thought was not directly possible in TreeCtrl.

我将在下面发布一个示例程序供您进行实验，并对格式表示抱歉：

package require treectrl
package require TclOO

oo::class create Foo {
    method test { obj } {
        puts "This is otuput from test method in instant of class D. $obj"
    }
}


treectrl .t -showheader 0 -selectmode single -showroot 0 -yscrollcommand {.y set}
scrollbar .y -ori vert -command ".t yview"
pack .y  -side right -fill y
pack .t  -side right -fill both -expand 1
set columnID [.t column create -text "Column 0"]
.t configure -treecolumn $columnID

.t element create el1 text
.t element create el2 rect -showfocus yes

.t style create s1
.t style elements s1 [list el1 el2]

.t style layout s1 el2 -union el1

.t configure -defaultstyle s1

# easily add a node with text $text as a child of $parent (the root is specified by the string "root")

proc add_node {parent text data} {
    set itemID [.t item create -button yes ]
    .t item element configure $itemID 0 el1 -text $text -data $data
    .t item collapse $itemID
    .t item lastchild $parent $itemID
    return $itemID
}


set sample abcdef
set data1 $sample
set id1 [add_node root "This is data 1" $data1]
set id4 [add_node root "This is data 4" $data1]
set id5 [add_node root "This is data 5" $data1]
set id6 [add_node root "This is data 6" $data1]
set id7 [add_node root "This is data 7" $data1]
set id8 [add_node root "This is data 8" $data1]
set id9 [add_node root "This is data 9" $data1]
set id10 [add_node root "This is data 10" $data1]
set sample2 $id1
set sample3 $sample2

set dataObj [.t item element cget $sample3 0 el1 -data]
puts "--- $dataObj"


set dObj [Foo new]
set id2 [add_node $id1 "This is object Foo node" $dObj]

set dObj_1 [.t item element cget $id2 0 el1 -data]
$dObj test $dObj_1

在以下示例中使用值 dataObj 和 dObj_1 不仅可以在该程序中使用，而且可以在正确包含包和方法调用的多个命名空间之间使用。