Itcl - the [incr Tcl] extension

Artifact c51a65cbb70ceba6e9c24c8f5481234d096ac621:

Attachment "infoVariableScopeUsage.tcl" to ticket [050ac21f73] added by schmitzu 2018-05-15 11:48:14.

---

puts "Itcl=[package require Itcl]"

itcl::class Base {
   private variable _baseV1 "BaseValue"
   private variable _baseArray
   constructor {} {
      array set _baseArray {
         one  1
         two  2
      }
   }
}

itcl::class Cls {
   inherit Base
}

set o1 [Cls #auto]

puts "_baseV1    scope = [$o1 info variable _baseV1 -scope]"
set sba [$o1 info variable _baseArray -scope]
puts "_baseArray scope = $sba"
puts "_baseArray get   = [array get $sba]"