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)