From 532f6309c4691724594d13aa3abb6311672d886a Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Wed, 15 Nov 2006 23:54:10 +0000
Subject: Fixed a bug where the right-most column could be resized even when
 its -resize option was false.

---
 library/treectrl.tcl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/library/treectrl.tcl b/library/treectrl.tcl
index 2e5b1ce..30f3de9 100644
--- a/library/treectrl.tcl
+++ b/library/treectrl.tcl
@@ -1,4 +1,4 @@
-# RCS: @(#) $Id: treectrl.tcl,v 1.32 2006/11/10 23:02:55 treectrl Exp $
+# RCS: @(#) $Id: treectrl.tcl,v 1.33 2006/11/15 23:54:10 treectrl Exp $
 
 bind TreeCtrl <Motion> {
     TreeCtrl::CursorCheck %W %x %y
@@ -261,7 +261,7 @@ proc ::TreeCtrl::CursorAction {w x y} {
 	if {$side eq "left"} {
 	    if {[$w column compare $column == tail]} {
 		set column [$w column id "last visible lock none"]
-		if {$column ne ""} {
+		if {$column ne "" && [$w column cget $column -resize]} {
 		    return "column resize $column"
 		}
 		# Can't -resize or -button the tail column
@@ -498,7 +498,6 @@ proc ::TreeCtrl::ButtonPress1 {w x y} {
 
 proc ::TreeCtrl::DoubleButton1 {w x y} {
 
-
     set id [$w identify $x $y]
     if {$id eq ""} {
 	return
-- 
cgit v0.12