diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-10-27 21:12:48 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-10-27 21:12:48 (GMT) |
| commit | e9a1e3c613316cca80d5f527791041e62f53a9ca (patch) | |
| tree | 0fab821d38bffc440f24771b8bcc00f9dae2eff5 | |
| parent | af18ad2b6212e9d9eac4972e9ae2c1592cc15aa4 (diff) | |
| download | tk-e9a1e3c613316cca80d5f527791041e62f53a9ca.zip tk-e9a1e3c613316cca80d5f527791041e62f53a9ca.tar.gz tk-e9a1e3c613316cca80d5f527791041e62f53a9ca.tar.bz2 | |
Fix 'Column ... out of range' error reported in [caacf1f082]
| -rw-r--r-- | library/ttk/treeview.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/ttk/treeview.tcl b/library/ttk/treeview.tcl index 0b5d953..4158739 100644 --- a/library/ttk/treeview.tcl +++ b/library/ttk/treeview.tcl @@ -120,7 +120,8 @@ proc ttk::treeview::ActivateHeading {w heading} { variable State if {$w != $State(activeWidget) || $heading != $State(activeHeading)} { - if {[winfo exists $State(activeWidget)] && $State(activeHeading) != {}} { + if {[winfo exists $State(activeWidget)] && $State(activeHeading) != {} + && $State(activeHeading) in [$State(activeWidget) cget -displaycolumns]} { $State(activeWidget) heading $State(activeHeading) state !active } if {$heading != {}} { |