Index: library/nx/plain-object-method.tcl =================================================================== diff -u -rf858f142f5fab4f88996b3eb709c3afa55114be9 -rb531a50ecc43d0c13e2432b099a436c3260c7a49 --- library/nx/plain-object-method.tcl (.../plain-object-method.tcl) (revision f858f142f5fab4f88996b3eb709c3afa55114be9) +++ library/nx/plain-object-method.tcl (.../plain-object-method.tcl) (revision b531a50ecc43d0c13e2432b099a436c3260c7a49) @@ -8,28 +8,37 @@ name arguments:parameter,0..* -returns body -precondition -postcondition } { puts stderr "LEGACY CMD: [self] [current method] [current args]" - :public object method {*}[current args] + :public object [current method] {*}[current args] } :public method alias args { puts stderr "LEGACY CMD: [self] [current method] [current args]" - :public object alias {*}$args + :public object [current method] {*}$args } :public method forward args { puts stderr "LEGACY CMD: [self] [current method] [current args]" - :public object forward {*}$args + :public object [current method] {*}$args } :public method mixin args { puts stderr "LEGACY CMD: [self] [current method] [current args]" - :object mixin {*}$args + :object [current method] {*}$args } :public method filter args { puts stderr "LEGACY CMD: [self] [current method] [current args]" - :object filter {*}$args + :object [current method] {*}$args } + :public method property args { + puts stderr "LEGACY CMD: [self] [current method] [current args]" + :object [current method] {*}$args + } + :public method variable args { + puts stderr "LEGACY CMD: [self] [current method] [current args]" + :object [current method] {*}$args + } + :public alias "info method" ::nsf::methods::object::info::method :public alias "info methods" ::nsf::methods::object::info::methods :public alias "info filter guard" ::nsf::methods::object::info::filterguard