Index: library/nx/nx.tcl =================================================================== diff -u -rdafe310c42eb6f94fd1da34d74b391c8a25365ae -r371cc41c32db500cb1d5bcab139ef65299ef4d6c --- library/nx/nx.tcl (.../nx.tcl) (revision dafe310c42eb6f94fd1da34d74b391c8a25365ae) +++ library/nx/nx.tcl (.../nx.tcl) (revision 371cc41c32db500cb1d5bcab139ef65299ef4d6c) @@ -272,7 +272,7 @@ :method unknown {methodName args} { return -code error "method '$methodName' unknown for [::nsf::self];\ in order to create an instance of class [::nsf::self], consider using\ - '[::nsf::self] create $methodName ?/option/ /value/ ...?'" + '[::nsf::self] create $methodName ?...?'" } # protected is not yet defined ::nsf::method::property [::nsf::self] unknown call-protected true Index: tests/class-method.test =================================================================== diff -u -r27176223d73920ce2ab9450554c3051d2c020dfb -r371cc41c32db500cb1d5bcab139ef65299ef4d6c --- tests/class-method.test (.../class-method.test) (revision 27176223d73920ce2ab9450554c3051d2c020dfb) +++ tests/class-method.test (.../class-method.test) (revision 371cc41c32db500cb1d5bcab139ef65299ef4d6c) @@ -11,9 +11,9 @@ :public object method f args {next} } ? {::C class mixins set M1} \ - "method 'class' unknown for ::C; in order to create an instance of class ::C, consider using '::C create class ?/option/ /value/ ...?'" + "method 'class' unknown for ::C; in order to create an instance of class ::C, consider using '::C create class ?...?'" ? {::C class filter f} \ - "method 'class' unknown for ::C; in order to create an instance of class ::C, consider using '::C create class ?/option/ /value/ ...?'" + "method 'class' unknown for ::C; in order to create an instance of class ::C, consider using '::C create class ?...?'" ? {lsort [::C info object methods]} "f" ? {lsort [::C info]} \ @@ -59,7 +59,7 @@ ? {::C class info slots} "::C::per-object-slot::v2 ::C::per-object-slot::p" ? {::C pm1} \ - "method 'pm1' unknown for ::C; in order to create an instance of class ::C, consider using '::C create pm1 ?/option/ /value/ ...?'" + "method 'pm1' unknown for ::C; in order to create an instance of class ::C, consider using '::C create pm1 ?...?'" ? {::C foo} "pm1" ? {::C a} "pm1" ? {::C fwd} "pm1" Index: tests/destroy.test =================================================================== diff -u -r27176223d73920ce2ab9450554c3051d2c020dfb -r371cc41c32db500cb1d5bcab139ef65299ef4d6c --- tests/destroy.test (.../destroy.test) (revision 27176223d73920ce2ab9450554c3051d2c020dfb) +++ tests/destroy.test (.../destroy.test) (revision 371cc41c32db500cb1d5bcab139ef65299ef4d6c) @@ -1056,7 +1056,7 @@ # Delete the proc and call "new" again # rename ::nsf::classes::nx::Class::new "" - ? {A new} "method 'new' unknown for ::A; in order to create an instance of class ::A, consider using '::A create new ?/option/ /value/ ...?'" + ? {A new} "method 'new' unknown for ::A; in order to create an instance of class ::A, consider using '::A create new ?...?'" # # Restore the original state Index: tests/methods.test =================================================================== diff -u -r27176223d73920ce2ab9450554c3051d2c020dfb -r371cc41c32db500cb1d5bcab139ef65299ef4d6c --- tests/methods.test (.../methods.test) (revision 27176223d73920ce2ab9450554c3051d2c020dfb) +++ tests/methods.test (.../methods.test) (revision 371cc41c32db500cb1d5bcab139ef65299ef4d6c) @@ -157,7 +157,7 @@ # class level setter nx::test case class-object-level-setter { - ? {C plain_object_setter 1} {method 'plain_object_setter' unknown for ::C; in order to create an instance of class ::C, consider using '::C create plain_object_setter ?/option/ /value/ ...?'} + ? {C plain_object_setter 1} {method 'plain_object_setter' unknown for ::C; in order to create an instance of class ::C, consider using '::C create plain_object_setter ?...?'} #? {C plain_object_setter 1} "1" ? {C public_object_setter set 2} "2" ? {catch {C protected_object_setter set 3}} 1 @@ -431,10 +431,10 @@ ? {C A set 2} 2 ? {C A get} 2 - ? {C B} {method 'B' unknown for ::C; in order to create an instance of class ::C, consider using '::C create B ?/option/ /value/ ...?'} + ? {C B} {method 'B' unknown for ::C; in order to create an instance of class ::C, consider using '::C create B ?...?'} #? {C B} B2 ? {C C get} C2 - ? {C D} {method 'D' unknown for ::C; in order to create an instance of class ::C, consider using '::C create D ?/option/ /value/ ...?'} + ? {C D} {method 'D' unknown for ::C; in order to create an instance of class ::C, consider using '::C create D ?...?'} nx::Object create o { set x [:object property -accessor public a] @@ -552,7 +552,7 @@ ? {C protected Object method bar {x} {return $x}} \ "'Object' is not a method defining method" ? {C Object method bar {x} {return $x}} \ - {method 'Object' unknown for ::C; in order to create an instance of class ::C, consider using '::C create Object ?/option/ /value/ ...?'} + {method 'Object' unknown for ::C; in order to create an instance of class ::C, consider using '::C create Object ?...?'} #? {C public object Object method bar {x} {return $x}} "'Object' not allowed to be modified by 'class'" #? {C public object Object method bar {x} {return $x}} \ {'Object' is not a method defining method} Index: tests/protected.test =================================================================== diff -u -r27176223d73920ce2ab9450554c3051d2c020dfb -r371cc41c32db500cb1d5bcab139ef65299ef4d6c --- tests/protected.test (.../protected.test) (revision 27176223d73920ce2ab9450554c3051d2c020dfb) +++ tests/protected.test (.../protected.test) (revision 371cc41c32db500cb1d5bcab139ef65299ef4d6c) @@ -842,12 +842,12 @@ } ? {C a get} a1 - ? {C b get} {method 'b' unknown for ::C; in order to create an instance of class ::C, consider using '::C create b ?/option/ /value/ ...?'} - ? {C c get} {method 'c' unknown for ::C; in order to create an instance of class ::C, consider using '::C create c ?/option/ /value/ ...?'} + ? {C b get} {method 'b' unknown for ::C; in order to create an instance of class ::C, consider using '::C create b ?...?'} + ? {C c get} {method 'c' unknown for ::C; in order to create an instance of class ::C, consider using '::C create c ?...?'} ? {C foo a} a1 ? {C foo b} b1 - ? {C foo c} {method 'c' unknown for ::C; in order to create an instance of class ::C, consider using '::C create c ?/option/ /value/ ...?'} + ? {C foo c} {method 'c' unknown for ::C; in order to create an instance of class ::C, consider using '::C create c ?...?'} ? {C bar a} a1 ? {C bar b} b1 Index: tests/tcloo.test =================================================================== diff -u -r27176223d73920ce2ab9450554c3051d2c020dfb -r371cc41c32db500cb1d5bcab139ef65299ef4d6c --- tests/tcloo.test (.../tcloo.test) (revision 27176223d73920ce2ab9450554c3051d2c020dfb) +++ tests/tcloo.test (.../tcloo.test) (revision 371cc41c32db500cb1d5bcab139ef65299ef4d6c) @@ -264,8 +264,8 @@ :class unexport create new } - ? {AbstractQueue new} {method 'new' unknown for ::AbstractQueue; in order to create an instance of class ::AbstractQueue, consider using '::AbstractQueue create new ?/option/ /value/ ...?'} - ? {AbstractQueue create aQueue} {method 'create' unknown for ::AbstractQueue; in order to create an instance of class ::AbstractQueue, consider using '::AbstractQueue create create ?/option/ /value/ ...?'} + ? {AbstractQueue new} {method 'new' unknown for ::AbstractQueue; in order to create an instance of class ::AbstractQueue, consider using '::AbstractQueue create new ?...?'} + ? {AbstractQueue create aQueue} {method 'create' unknown for ::AbstractQueue; in order to create an instance of class ::AbstractQueue, consider using '::AbstractQueue create create ?...?'} }