From ab2a29422052037b0344d50033fe0b16676aa9b4 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sat, 4 May 2019 13:19:36 +0000
Subject: Revert [d70ef6ed] and [fa9b6483]. ttk::treeview again allows dragging
 the right edge of the rightmost heading, which is not special in any respect.

---
 library/ttk/treeview.tcl | 23 ++---------------------
 1 file 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*
-- 
cgit v0.12