8 lines
137 B
Tcl
8 lines
137 B
Tcl
proc array_init {name args} {
|
|
foreach {key value} $args {
|
|
if {![$name exists $key]} {
|
|
$name makeitem $key $value
|
|
}
|
|
}
|
|
}
|