Itcl - the [incr Tcl] extension

Artifact [ee960cebdc]
Login

Artifact ee960cebdca97d47bb2cee901d7ce779646395d57ddfd44ec264fe59aa2fb111:

Ticket change [ee960cebdc] - New ticket [777ae99cfb] info exists affects behaviour of variable resolution. by schmitzu 2019-11-04 13:25:29.
D 2019-11-04T13:25:29.782
J foundin trunk\s[41ce4308a9]
J icomment The\sfollowing\sscript:\r\npackage\srequire\sItcl\r\nitcl::class\sA\s{\r\n\s\s\sprivate\scommon\sl1\s""\r\n}\r\nitcl::class\sB\s{\r\n\s\s\sinherit\sA\r\n\s\s\sputs\s"info\sexists\sl1=[info\sexists\sl1]"\r\n\s\s\sprivate\scommon\sl1\r\n\s\s\slappend\sl1\s"one"\r\n\s\s\sputs\s"l1=$l1"\r\n}\r\n\r\nleads\sto\sthis\soutput/error:\r\n\r\ninfo\sexists\sl1=0\r\ncan't\saccess\s"l1":\sprivate\svariable\r\n\s\s\s\swhile\sexecuting\r\n"lappend\sl1\s"one""\r\n\s\s\s\s(class\s"B"\sbody\sline\s5)\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"itcl::class\sB\s{\r\n\s\s\sinherit\sA\r\n\s\s\sputs\s"info\sexists\sl1=[info\sexists\sl1]"\r\n\s\s\sprivate\scommon\sl1\r\n\s\s\slappend\sl1\s"one"\r\n\s\s\sputs\s"l1=$l1"\r\n}"\r\n\r\nPrevious\sversions\s(e.g.\s[05b48e2011])\sdoesn't\shave\sthis\sproblem.\r\nWhen\scommenting\sout\sthe\s"info\sexists"\sline,\sno\serror\r\nis\sthrown.
J login schmitzu
J mimetype text/x-fossil-plain
J private_contact d183df1f376fe5f7c19813c014028c73fd52e281
J severity Critical
J status Open
J title info\sexists\saffects\sbehaviour\sof\svariable\sresolution
J type Code_Defect
K 777ae99cfbf6106de0d01eb5bd11f69e64919b53
U schmitzu
Z b6a23edf9f222b8d381ba05c05a0364e