Itcl - the [incr Tcl] extension

Artifact bc1b7d8b43d1821bf759bf9dc39c441e5364acd6387aedf9c9727597c1c64027:

D 2018-03-17T20:52:42.799
J foundin 4.1.1
J icomment Hi!\sAppears\sthat\sthe\sfollowing\scode\sbehaves\sdifferently\sin\sItcl\s3\sand\s4:\r\n\r\nitcl::class\sa\s{\r\n\s\s\s\sconstructor\s{args}\s{}\r\n\s\s\s\spublic\smethod\sa\s{}\r\n}\r\n\r\nitcl::body\sa::constructor\s{args}\s{\r\n\s\s\s\sputs\s"a::constructor\s$args"\r\n\s\s\s\sb\s::newb\r\n}\r\n\r\nitcl::body\sa::a\s{}\s{\r\n\s\s\s\sputs\s"a::a"\r\n}\r\n\r\nitcl::class\sb\s{\r\n\s\s\s\sconstructor\s{args}\s{}\r\n}\r\n\r\nitcl::body\sb::constructor\s{args}\s{\r\n\s\s\s\sputs\s"b::constructor\s$args"\r\n\s\s\s\sa::a\r\n}\r\n\r\na\snewa\r\n\r\n(it's\sa\sminimal\sexample\swhich\sreproduces\sthe\sproblem).\sSpecifically,\sin\sItcl\s3\sthe\scode\sworks\sfine\sand\sprints\r\n\r\na::constructor\s\r\nb::constructor\s\r\na::a\r\n\r\nbut\sin\sItcl\s4\sit\semits\sthe\serror:\r\n\r\na::constructor\s\r\nb::constructor\s\r\nbad\soption\s"a":\sshould\sbe\sone\sof...\r\n\s\snewb\scget\s-option\r\n\s\snewb\sconfigure\s?-option?\s?value\s-option\svalue...?\r\n\s\snewb\sisa\sclassName\r\n\s\s\s\swhile\sexecuting\r\n"a::a"\r\n\s\s\s\swhile\sconstructing\sobject\s"::newb"\sin\s::b::constructor\s(body\sline\s4)\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"::itcl::parser::handleClass\sb\s::b\s::newb"\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"b\s::newb"\r\n\s\s\s\swhile\sconstructing\sobject\s"::newa"\sin\s::a::constructor\s(body\sline\s4)\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"::itcl::parser::handleClass\sa\s::a\snewa"\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"a\snewa"\r\n\s\s\s\s(file\s"test.tcl"\sline\s28)\r\n\r\nFor\ssome\sreason\sa::a\stries\sto\sfind\smethod\sa\sin\sclass\sb\sand\sfails.
J login anonymous
J mimetype text/x-fossil-plain
J private_contact 07bcf89c4057d2d0e00473ab972eef3274af2d93
J severity Important
J status Open
J title Different\sbehavior\sfor\sItcl\s4\sand\sItcl\s3
J type Code_Defect
K 15f7db53b9f36d978ce732685ac868ee06fbb216
U anonymous
Z 8252102f174dda4d2a6cc79549aa4b1f