diff options
author | fvogel <fvogelnew1@free.fr> | 2018-11-04 15:13:20 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2018-11-04 15:13:20 (GMT) |
commit | 1eec41b832be0b5bd5638aed436d68e061887dd4 (patch) | |
tree | 899d7b695ddd4c923700ce1c53fe2b9768ade4a2 /library/ttk | |
parent | 9459e000456522e2c920092ad9e1658ef647f507 (diff) | |
parent | f8fe192b4583479e295211f68875fd25b7e69d50 (diff) | |
download | tk-1eec41b832be0b5bd5638aed436d68e061887dd4.zip tk-1eec41b832be0b5bd5638aed436d68e061887dd4.tar.gz tk-1eec41b832be0b5bd5638aed436d68e061887dd4.tar.bz2 |
Fix [6b22d436aa]: Treeview ActivateHeading Binding Fails After Widget Deletion. Thanks to Brian O'Hagan for the report and the patch.
Diffstat (limited to 'library/ttk')
-rw-r--r-- | library/ttk/treeview.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/ttk/treeview.tcl b/library/ttk/treeview.tcl index c38b5b6..52fb559 100644 --- a/library/ttk/treeview.tcl +++ b/library/ttk/treeview.tcl @@ -120,7 +120,7 @@ proc ttk::treeview::ActivateHeading {w heading} { variable State if {$w != $State(activeWidget) || $heading != $State(activeHeading)} { - if {$State(activeHeading) != {}} { + if {[winfo exists $State(activeWidget)] && $State(activeHeading) != {}} { $State(activeWidget) heading $State(activeHeading) state !active } if {$heading != {}} { |