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
|
||||
array set ARRAY {key1 value1 key2 value2}
|
||||
|
||||
set LIST [list a b c {def} {g h i j} k l m]
|
||||
|
||||
proc Wrap { body } {
|
||||
uplevel 1 $body
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue