Index: tests/info-method.xotcl =================================================================== diff -u -r73eb4eccd33d1a940e2d2ca6dccc2f74216f0576 -r210eab6d9149846d5d6a6a8e0fa74e232ca5b6de --- tests/info-method.xotcl (.../info-method.xotcl) (revision 73eb4eccd33d1a940e2d2ca6dccc2f74216f0576) +++ tests/info-method.xotcl (.../info-method.xotcl) (revision 210eab6d9149846d5d6a6a8e0fa74e232ca5b6de) @@ -4,23 +4,23 @@ ::xotcl::use xotcl2 Object create o { - .alias set ::set + :alias set ::set } Class create C { - .method m {x} {return proc-[self proc]} - .object method mpo {} {return instproc-[self proc]} - .method m-with-assertions {} {return proc-[self proc]} -precondition 1 -postcondition 2 + :method m {x} {return proc-[self proc]} + :object method mpo {} {return instproc-[self proc]} + :method m-with-assertions {} {return proc-[self proc]} -precondition 1 -postcondition 2 - .forward addOne expr 1 + - .object forward add1 expr 1 + - .object forward fpo ::o + :forward addOne expr 1 + + :object forward add1 expr 1 + + :object forward fpo ::o - .setter s - .object setter spo + :setter s + :object setter spo - .alias a ::set - .object alias apo ::puts + :alias a ::set + :object alias apo ::puts } C create c1