diff options
author | treectrl <treectrl> | 2006-11-23 22:03:47 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-11-23 22:03:47 (GMT) |
commit | fc336ae6deedfca1e6129e8c5de2a67b61e4c74c (patch) | |
tree | 27ce45f37fd1fc89d1da8e3f2525b8ee4ce7e6e6 | |
parent | 31ec35c0377e4b66fd295a7bf6800331f0623bc7 (diff) | |
download | tktreectrl-fc336ae6deedfca1e6129e8c5de2a67b61e4c74c.zip tktreectrl-fc336ae6deedfca1e6129e8c5de2a67b61e4c74c.tar.gz tktreectrl-fc336ae6deedfca1e6129e8c5de2a67b61e4c74c.tar.bz2 |
Added test command to add some text to each item-column.
-rw-r--r-- | demos/column-lock.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
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 +} |