Posted to tcl by dgp at Thu Jul 13 20:00:14 GMT 2017view pretty

% itcl::class B {
variable b
constructor {} {set b 2}
}
% itcl::class D {
    inherit B
    method foo {} {puts "b is $b ([namespace which -variable b] in [namespace current])"}
}
% D d
d
% d foo
b is 2 (::itcl::internal::variables::oo::Obj15::B::b in ::D)