Posted to tcl by apn at Fri Jan 03 05:56:34 GMT 2020view raw

  1. % oo::class create C { variable x ; constructor {} {set x 42} }
  2. ::C
  3. % C create o
  4. ::o
  5. % set nso [info object namespace o]
  6. ::oo::Obj65
  7. % set ${nso}::x
  8. 42