Miscellany

pack [Tree .t]
.t insert end root n1  -text "User Defined files" -image [Bitmap::get openfold]

set count 20
foreach i [ exec ls $dir | sort ] {
    .t insert end n1 n[expr [incr count]] -text $i -data $i -image [Bitmap::get file]
}

.t bindText <3> +right_click1

proc right_click1 {args} {
    .t selection set $args
    set argss [.t itemcget [.t selection get] -data]
    tk_popup .popup_view %X %Y
}

expected integer but got "%X"
expected integer but got "%X"
    while executing
"$menu post $x $y"
    (procedure "tk::PostOverPoint" line 31)
    invoked from within
"tk::PostOverPoint $menu $x $y $entry"
    (procedure "tk_popup" line 7)
    invoked from within
"tk_popup .popup_view %X %Y"
    (procedure "right_click1" line 4)
    invoked from within
"right_click1 [Tree::_get_node_name .t current 2]"
    (command bound to event)