uplevel

set aa 12

class te {
 public proc t1
 public method a1
 constructor {args} {
  uplevel 1 {
  puts $aa
  set aa 3  
  puts $aa   
  }
 }
}
body te::a1 {args} {
 uplevel 1 { set aa 4 
 puts $aa  
 }
}
body te::t1 {args} {
 uplevel 1 { set aa 5 
  puts $aa  
  } 
}

te .e
.e a1
te::t1