Revert [d70ef6ed] and [fa9b6483]. ttk::treeview again allows dragging the right edge of the rightmost heading, which is not special in any respect.

1 files changed, 2 insertions, 21 deletions

diff --git a/library/ttk/treeview.tcl b/library/ttk/treeview.tcl
index e458558..a6bdb74 100644
--- a/library/ttk/treeview.tcl
+++ b/library/ttk/treeview.tcl
@@ -106,12 +106,7 @@ proc ttk::treeview::Motion {w x y} {
     set activeHeading {}
 
     switch -- [$w identify region $x $y] {
-	separator {
-                   if {[ttk::treeview::LastDisplayColumn $w] ne 
-                           [$w identify column $x $y]} {
-                       set cursor hresize
-                   }
-	          }
+	separator { set cursor hresize }
 	heading { set activeHeading [$w identify column $x $y] }
     }
 
@@ -206,9 +201,7 @@ proc ttk::treeview::resize.press {w x y} {
 
 proc ttk::treeview::resize.drag {w x} {
     variable State
-    if {[ttk::treeview::LastDisplayColumn $w] ne $State(resizeColumn)} {
-        $w drag $State(resizeColumn) $x
-    }
+    $w drag $State(resizeColumn) $x
 }
 
 proc ttk::treeview::resize.release {w x} {
@@ -367,16 +360,4 @@ proc ttk::treeview::BrowseTo {w item} {
     $w selection set [list $item]
 }
 
-## LastDisplayColumn -- return the data column identifier of the column
-#                       displayed rightmost, in the form #n
-#
-proc ttk::treeview::LastDisplayColumn {w} {
-    set dc [$w cget -displaycolumns]
-    if {$dc eq "#all"} {
-        return #[llength [$w cget -columns]]
-    } else {
-        return #[llength $dc]
-    }
-}
-
 #*EOF*