summaryrefslogtreecommitdiffstats
path: root/library/ttk/treeview.tcl
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2009-11-12 18:17:14 (GMT)
committerjenglish <jenglish@flightlab.com>2009-11-12 18:17:14 (GMT)
commit09aec6f1d87b130dbe9c4392768cf9c16365a698 (patch)
tree6a689306857a9896ab922345a0b5dea64df3e3ee /library/ttk/treeview.tcl
parentda2611425bfd7e8e60f4c170fed650cdd316b3b7 (diff)
downloadtk-09aec6f1d87b130dbe9c4392768cf9c16365a698.zip
tk-09aec6f1d87b130dbe9c4392768cf9c16365a698.tar.gz
tk-09aec6f1d87b130dbe9c4392768cf9c16365a698.tar.bz2
[update] hygiene.
+ Where possible, replace [a; update; b] with [a ; after 0 b]. + Where not possible, use [update idletasks] instead of full [update]. + Use [after 0] in favor of [after idle] for delayed work, to reduce likelihood of reentrancy issues in [update idletasks].
Diffstat (limited to 'library/ttk/treeview.tcl')
-rw-r--r--library/ttk/treeview.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/ttk/treeview.tcl b/library/ttk/treeview.tcl
index 575769a..6dc34ca 100644
--- a/library/ttk/treeview.tcl
+++ b/library/ttk/treeview.tcl
@@ -1,4 +1,4 @@
-# $Id: treeview.tcl,v 1.7 2008/10/28 20:02:03 jenglish Exp $
+# $Id: treeview.tcl,v 1.8 2009/11/12 18:17:14 jenglish Exp $
#
# ttk::treeview widget bindings and utilities.
#
@@ -234,7 +234,7 @@ proc ttk::treeview::heading.drag {w x y} {
proc ttk::treeview::heading.release {w} {
variable State
if {[lsearch -exact [$w heading $State(heading) state] pressed] >= 0} {
- after idle [$w heading $State(heading) -command]
+ after 0 [$w heading $State(heading) -command]
}
$w heading $State(heading) state !pressed
}