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

constructor {instanceVar} {
  namespace upvar [namespace current] instanceVar my(instanceVar)
  set my(instanceVar) $instanceVar
}