Add a list to tcl tets
This commit is contained in:
parent
07ea3880ac
commit
b72aa18dec
1 changed files with 2 additions and 0 deletions
|
|
@ -3,6 +3,8 @@
|
||||||
set SCALAR g
|
set SCALAR g
|
||||||
array set ARRAY {key1 value1 key2 value2}
|
array set ARRAY {key1 value1 key2 value2}
|
||||||
|
|
||||||
|
set LIST [list a b c {def} {g h i j} k l m]
|
||||||
|
|
||||||
proc Wrap { body } {
|
proc Wrap { body } {
|
||||||
uplevel 1 $body
|
uplevel 1 $body
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue