diff options
| author | treectrl <treectrl> | 2006-11-23 22:24:56 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2006-11-23 22:24:56 (GMT) |
| commit | ba58be95010e7a8fef177ea8f96c408371f7d82d (patch) | |
| tree | 0502a17ce9ecc1e154bb7f01b0406e3a590efa99 /demos/random.tcl | |
| parent | 0a730735d7727e045df33ef8be54ca434aa81143 (diff) | |
| download | tktreectrl-ba58be95010e7a8fef177ea8f96c408371f7d82d.zip tktreectrl-ba58be95010e7a8fef177ea8f96c408371f7d82d.tar.gz tktreectrl-ba58be95010e7a8fef177ea8f96c408371f7d82d.tar.bz2 | |
Added [DemoList] command to get the name of the main list rather than hard-coding .f2.f1.t everywhere.
Diffstat (limited to 'demos/random.tcl')
| -rw-r--r-- | demos/random.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/random.tcl b/demos/random.tcl index 94e08b5..1294e66 100644 --- a/demos/random.tcl +++ b/demos/random.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: random.tcl,v 1.22 2006/11/19 00:55:37 treectrl Exp $ +# RCS: @(#) $Id: random.tcl,v 1.23 2006/11/23 22:24:56 treectrl Exp $ set RandomN 500 set RandomDepth 5 @@ -8,7 +8,7 @@ set RandomDepth 5 # proc DemoRandom {} { - set T .f2.f1.t + set T [DemoList] InitPics folder-* small-* @@ -398,7 +398,7 @@ proc RandomDrop {T target source pos} { # proc DemoRandom2 {} { - set T .f2.f1.t + set T [DemoList] DemoRandom |