Posted to tcl by dgp at Thu Jul 13 20:00:14 GMT 2017view raw
- % 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)