From ec666bc24a4ac202bf6ec4883bd2d65bc5c4c8ca Mon Sep 17 00:00:00 2001
From: Cyan Ogilvie <cyan@beleriand.(none)>
Date: Thu, 14 Sep 2006 23:32:33 +0200
Subject: [PATCH] Added onselect_arr callback to Browse_tktreectrl

---
 pkgIndex.tcl                   | 4 ++--
 scripts/browse_tktreectrl.itcl | 1 +
 tlc-base.tcl                   | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/pkgIndex.tcl b/pkgIndex.tcl
index c3a772f..54bc6b2 100755
--- a/pkgIndex.tcl
+++ b/pkgIndex.tcl
@@ -1,4 +1,4 @@
 #Tcl package index file, version 1.0
 
-package ifneeded TLC-base 0.77.0 [list eval [list namespace eval ::tlc [list variable library $dir]]\n[list source [file join $dir tlc-base.tcl]]]
-package ifneeded TLC 0.77.0 [list source [file join $dir tlc.tcl]]
+package ifneeded TLC-base 0.78.0 [list eval [list namespace eval ::tlc [list variable library $dir]]\n[list source [file join $dir tlc-base.tcl]]]
+package ifneeded TLC 0.78.0 [list source [file join $dir tlc.tcl]]
diff --git a/scripts/browse_tktreectrl.itcl b/scripts/browse_tktreectrl.itcl
index 1808cb4..4bcbd9d 100644
--- a/scripts/browse_tktreectrl.itcl
+++ b/scripts/browse_tktreectrl.itcl
@@ -346,6 +346,7 @@ body tlc::Browse_tktreectrl::selection_changed {} { #<<<1
 				}
 				tlc::try {
 					invoke_handlers onselect $row
+					invoke_handlers onselect_arr [array get coldata]
 				} onerr {
 					default STDMSG
 				}
diff --git a/tlc-base.tcl b/tlc-base.tcl
index b1deb8d..5fd5cc0 100755
--- a/tlc-base.tcl
+++ b/tlc-base.tcl
@@ -4,7 +4,7 @@ package require Itcl 3.1
 namespace eval ::tlc {
 	namespace export *
 	
-	variable version	0.77.0
+	variable version	0.78.0
 
 	variable log
 	set log(threshold)	20
-- 
2.11.4.GIT