Posted to tcl by mr_calvin at Tue Jul 13 19:27:57 GMT 2021view raw

  1. constructor {instanceVar} {
  2. namespace upvar [namespace current] instanceVar my(instanceVar)
  3. set my(instanceVar) $instanceVar
  4. }