From fc336ae6deedfca1e6129e8c5de2a67b61e4c74c Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Thu, 23 Nov 2006 22:03:47 +0000
Subject: Added test command to add some text to each item-column.

---
 demos/column-lock.tcl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/demos/column-lock.tcl b/demos/column-lock.tcl
index 8b774f9..60cf255 100644
--- a/demos/column-lock.tcl
+++ b/demos/column-lock.tcl
@@ -1,4 +1,4 @@
-# RCS: @(#) $Id: column-lock.tcl,v 1.7 2006/11/19 00:51:46 treectrl Exp $
+# RCS: @(#) $Id: column-lock.tcl,v 1.8 2006/11/23 22:03:47 treectrl Exp $
 
 proc DemoColumnLock {} {
 
@@ -316,3 +316,9 @@ proc ColumnLockUpdateSelection {w} {
     }
     return
 }
+
+proc ColumnLockAddText {} {
+    set w .f2.f1.t
+    $w style elements cell {cell.bd label1.text cell.selN cell.selS cell.selW cell.selE}
+    $w item text visible all abc
+}
-- 
cgit v0.12