2011年8月19日
uplevel
摘要： set aa 12class te {public proc t1public method a1constructor {args} {uplevel 1 {puts $aaset aa 3puts $aa}}}body te::a1 {args} {uplevel 1 { set aa 4puts $aa}}body te::t1 {args} {uplevel 1 { set aa 5puts $aa}}te .e.e a1te::t1 阅读全文
posted @ 2011-08-19 09:50 greencolor 阅读(117) 评论(0) 推荐(0) 编辑
upvar
摘要： set aa 12class te {public proc t1public method a1constructor {args} {upvar aa kkset kk [expr $kk + 2 ] puts $kk}}body te::a1 {args} {upvar aa k1set k1 [ expr $k1 + 3 ]puts $k1}body te::t1 {args} {upvar aa k2set k2 [ expr $k2 +4 ]puts $k2}te .e.e a1te::t1 阅读全文
posted @ 2011-08-19 09:42 greencolor 阅读(126) 评论(0) 推荐(0) 编辑
global
摘要： set aa 12class te {public proc t1public method a1constructor {args} {global aaputs $aa}}body te::a1 {args} {global aaputs $aa}body te::t1 {args} {global aaputs $aa}te .e.e a1te::t1 阅读全文
posted @ 2011-08-19 09:38 greencolor 阅读(101) 评论(0) 推荐(0) 编辑