Tcl Source Code: Artifact [a5d09aa32b]

Artifact a5d09aa32b52972bd7bfa59384d7c1164835b39cad864a00220299f16b79528a:

Attachment "test-nr.tcl" to ticket [b721292488] added by bll 2020-09-21 07:04:18.


namespace eval sysvars {
  variable v

  proc init { } {
    variable v

    set v(works) true
  }
}

::sysvars::init

namespace eval themeloader {
  proc load { } {
    puts "A: $::sysvars::v(works)"
    puts "B: $sysvars::v(works)"
  }
}

::themeloader::load