diff options
Diffstat (limited to 'library/ttk/treeview.tcl')
| -rw-r--r-- | library/ttk/treeview.tcl | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/library/ttk/treeview.tcl b/library/ttk/treeview.tcl index 608cdf2..575769a 100644 --- a/library/ttk/treeview.tcl +++ b/library/ttk/treeview.tcl @@ -1,4 +1,4 @@ -# $Id: treeview.tcl,v 1.6 2008/05/23 20:20:06 jenglish Exp $ +# $Id: treeview.tcl,v 1.7 2008/10/28 20:02:03 jenglish Exp $ # # ttk::treeview widget bindings and utilities. # @@ -103,20 +103,15 @@ proc ttk::treeview::Keynav {w dir} { # Sets cursor, active element ... # proc ttk::treeview::Motion {w x y} { - variable ::ttk::Cursors - variable State - set cursor {} set activeHeading {} switch -- [$w identify region $x $y] { - separator { set cursor $Cursors(hresize) } + separator { set cursor hresize } heading { set activeHeading [$w identify column $x $y] } } - if {[$w cget -cursor] ne $cursor} { - $w configure -cursor $cursor - } + ttk::setCursor $w $cursor ActivateHeading $w $activeHeading } |