global

set aa 12

class te {
 public proc t1
 public method a1
 constructor {args} {
  global aa
  puts $aa 
 }
}
body te::a1 {args} {
 global aa
 puts $aa
}
body te::t1 {args} {
 global aa
 puts $aa 
}

te .e
.e a1
te::t1