Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 27 Oct 2014 16:42:03 -0000 1.2 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 7 Dec 2015 17:02:51 -0000 1.2.2.1 @@ -6,7 +6,7 @@ # ########################################################### - Class FormGeneratorField -superclass CompoundField -parameter { + Class create FormGeneratorField -superclass CompoundField -parameter { } FormGeneratorField set abstract 1 FormGeneratorField instproc pretty_value {v} { @@ -25,7 +25,7 @@ # ::xowiki::formfield::test_item # ########################################################### - Class test_item -superclass FormGeneratorField -parameter { + Class create test_item -superclass FormGeneratorField -parameter { {question_type mc} {nr_choices 5} {feedback_level full} @@ -129,7 +129,7 @@ # ########################################################### - Class mc_interaction -superclass FormGeneratorField -parameter { + Class create mc_interaction -superclass FormGeneratorField -parameter { {feedback_level full} {inplace false} {shuffle false} @@ -254,7 +254,7 @@ # ########################################################### - Class mc_choice -superclass FormGeneratorField -parameter { + Class create mc_choice -superclass FormGeneratorField -parameter { {feedback_level full} {inplace true} {multiple true} @@ -307,7 +307,7 @@ # ########################################################### - Class text_interaction -superclass FormGeneratorField -parameter { + Class create text_interaction -superclass FormGeneratorField -parameter { {feedback_level full} {inplace true} } @@ -356,7 +356,7 @@ # ########################################################### - Class test_section -superclass {form_page} -parameter { + Class create test_section -superclass {form_page} -parameter { {multiple true} }