upvar

set aa 12

class te {
 public proc t1
 public method a1
 constructor {args} {
  upvar aa kk
  set kk [expr $kk + 2 ]
  
  puts $kk 
 }
}
body te::a1 {args} {
 upvar aa k1
 set k1 [ expr $k1 + 3 ]
 puts $k1
}
body te::t1 {args} {
 upvar aa k2
 set k2 [ expr $k2 +4 ]
 puts $k2 
}

te .e
.e a1
te::t1