How to Handle Tcl Treeview Selections

Question

Hello:

I am using the following procedure to delete a record within a database that is displayed within a treeview widget (z1):

set z1 [ttk::treeview .c1.t1 -columns {first last} -show headings]

proc Dlt {} {
    global z1 z11
    sqlite3 db test.db
    db eval {
        DELETE From t1 Where First_Name = $z11 and Last_Name = $z11
    }
    db close
}

$z11 in the sql statement should be the treeview selection. Unfortunately, I cannot figure out how to set a variable to equal the treeview selection. I can set a variable to equal the index, which is: set z11 [$z1 index [$z1 selection]]. This will give me the index of the treeview selection; however, I am trying to get the string value of the treeview selection.

Does anyone know what the correct syntax is to set a variable to equal a treeview selection?

Thank you,

Answer 1

To get the values for an item in the tree you would use the item subcommand of the tree. For example:

set selection [.tree selection]
set text [.tree item $selection -text]

This is all documented on the man page for the treeview widget.

Answer 2

As an aside, what platform are you working with? If Windows, for debugging purposes, you can add a "console show" command to your code to display an interactive console window. With that open, you can just use [puts] to display variable values. So, you could just use "puts $text" (from within your code) to see the value of your text variable.

Also, you can just type commands directly into the console for immediate evaluation. In many situations, spending a few minutes in the console can be very enlightening.

If you're not running under Windows, you don't even need the "console show" command, as anything written to stdout should appear in the original shell window.