diff options
| -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 +} |