Attachment "tree.patch" to
ticket [2828086fff]
added by
wordtech
2009-08-04 05:19:04.
--- tree-orig.tcl 2009-07-24 18:01:56.000000000 -0400
+++ tree.tcl 2009-08-03 18:15:42.000000000 -0400
@@ -222,6 +222,7 @@
Tree::bindText $path <Control-Button-1> [list $selectcmd $path toggle]
Tree::bindImage $path <Control-Button-1> [list $selectcmd $path toggle]
+
# Add sentinal bindings for double-clicking on items, to handle the
# gnarly Tk bug wherein:
# ButtonClick
@@ -1869,6 +1870,7 @@
}
}
+
# Tree::_keynav --
#
# Handle navigational keypresses on the tree.
@@ -1923,6 +1925,7 @@
$win selection set [lindex $nodes $index]
_set_current_node $win [lindex $nodes $index]
$win see [lindex $nodes $index]
+ event generate $win <<TreeSelect>>
return
}
}
@@ -1941,6 +1944,7 @@
$win selection set [lindex $nodes $index]
_set_current_node $win [lindex $nodes $index]
$win see [lindex $nodes $index]
+ event generate $win <<TreeSelect>>
return
}
}
@@ -1959,6 +1963,7 @@
$win selection set [lindex $nodes $index]
_set_current_node $win [lindex $nodes $index]
$win see [lindex $nodes $index]
+ event generate $win <<TreeSelect>>
return
}
}
@@ -1999,6 +2004,7 @@
$win selection set $parent
_set_current_node $win $parent
$win see $parent
+ event generate $win <<TreeSelect>>
return
}
}
