Posted to tcl by Maximus at Thu Nov 07 21:06:21 GMT 2019view pretty

proc foo {} {

  variable bar
  set bar "baz"

}

foo

variable bar
puts "1: $bar"

namespace eval one {
  proc two {} {
  	puts "$bar"
  }
}

one::two