●●●●TCL/TKなら俺に聞け 2●●●●

●●●●TCL/TKなら俺 ..

331:デフォルトの名無しさん
08/08/26 01:37:04
>>329
Tclなめんな！

proc block {body} {
　　 eval $body
}

set x 100
set y 1000
block {
　　 set x 200
　　 upvar y y
　　 puts "value is $x $y"; # value is 200 1000
}
puts "value is $x $y"; # value is 100 1000

次ページ