Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.236 -r1.237
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Jul 2013 10:37:41 -0000	1.236
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	20 Jul 2013 19:15:43 -0000	1.237
@@ -726,7 +726,7 @@
   #
   ###########################################################
 
-  Class submit_button -superclass FormField 
+  Class create submit_button -superclass FormField 
   submit_button  instproc initialize {} {
     my set type submit
     my set value [::xo::localize [_ xowiki.Form-submit_button]]
@@ -939,7 +939,7 @@
   #
   ###########################################################
 
-  Class import_archive -superclass file -parameter {
+  Class create import_archive -superclass file -parameter {
     {cleanup false}
   }
   import_archive instproc initialize {} {
@@ -983,7 +983,7 @@
   #
   ###########################################################
 
-  Class image -superclass file -parameter {
+  Class create image -superclass file -parameter {
     href cssclass
     float width height 
     padding padding-right padding-left padding-top padding-bottom
@@ -1002,7 +1002,7 @@
   #
   ###########################################################
 
-  Class hidden -superclass FormField
+  Class create hidden -superclass FormField
   hidden instproc initialize {} {
     my type hidden
     my set widget_type text(hidden)
@@ -1022,7 +1022,7 @@
   #
   ###########################################################
 
-  Class omit -superclass FormField
+  Class create omit -superclass FormField
   omit instproc render_item {} {
     # don't render the labels
     #my render_form_widget
@@ -1036,7 +1036,7 @@
   #
   ###########################################################
   
-  Class inform -superclass FormField
+  Class create inform -superclass FormField
   inform instproc initialize {} {
     my type hidden
     my set widget_type text(inform)
@@ -1054,7 +1054,7 @@
   #
   ###########################################################
 
-  Class text -superclass FormField -parameter {
+  Class create text -superclass FormField -parameter {
     {size 80}
     maxlength
   }
@@ -1070,7 +1070,7 @@
   #
   ###########################################################
 
-  Class color -superclass text 
+  Class create color -superclass text 
   color instproc initialize {} {
     next
     my type color
@@ -1082,7 +1082,7 @@
   #
   ###########################################################
 
-  Class datetime -superclass text 
+  Class create datetime -superclass text 
   datetime instproc initialize {} {
     next
     my type datetime
@@ -1097,7 +1097,7 @@
   #
   ###########################################################
 
-  Class datetime-local -superclass text 
+  Class create datetime-local -superclass text 
   datetime-local instproc initialize {} {
     next
     my type datetime-local
@@ -1109,7 +1109,7 @@
   #
   ###########################################################
 
-  Class time -superclass text 
+  Class create time -superclass text 
   time instproc initialize {} {
     next
     my type time
@@ -1121,7 +1121,7 @@
   #
   ###########################################################
 
-  Class week -superclass text 
+  Class create week -superclass text 
   week instproc initialize {} {
     next
     my type datetime
@@ -1133,7 +1133,7 @@
   #
   ###########################################################
 
-  Class email -superclass text 
+  Class create email -superclass text 
   email instproc initialize {} {
     next
     my type email
@@ -1145,7 +1145,7 @@
   #
   ###########################################################
 
-  Class search -superclass text 
+  Class create search -superclass text 
   search instproc initialize {} {
     next
     my type search
@@ -1156,7 +1156,7 @@
   #
   ###########################################################
 
-  Class tel -superclass text 
+  Class create tel -superclass text 
   tel instproc initialize {} {
     next
     my type tel
@@ -1168,7 +1168,7 @@
   #
   ###########################################################
 
-  Class number -superclass FormField -parameter {
+  Class create number -superclass FormField -parameter {
     min max step value
   }
   number instproc initialize {} {
@@ -1186,7 +1186,7 @@
   #
   ###########################################################
 
-  Class range -superclass FormField -parameter {
+  Class create range -superclass FormField -parameter {
     min max step value
   }
   range instproc initialize {} {
@@ -1205,7 +1205,7 @@
   #
   ###########################################################
 
-  Class password -superclass text 
+  Class create password -superclass text 
   password instproc initialize {} {
     next
     my set widget_type password
@@ -1217,7 +1217,7 @@
   #
   ###########################################################
 
-  Class numeric -superclass text -parameter {
+  Class create numeric -superclass text -parameter {
     {format %.2f}
   } -extend_slot validator numeric 
   numeric instproc initialize {} {
@@ -1266,7 +1266,7 @@
   #
   ###########################################################
 
-  Class user_id -superclass numeric -parameter {
+  Class create user_id -superclass numeric -parameter {
     {format %d}
   }
   user_id instproc initialize {} {
@@ -1283,7 +1283,7 @@
   #
   ###########################################################
 
-  Class author -superclass user_id -parameter {
+  Class create author -superclass user_id -parameter {
     {photo_size 54}
     {with_photo true}
     {with_user_link false}
@@ -1338,7 +1338,7 @@
   #
   ###########################################################
 
-  Class party_id -superclass user_id \
+  Class create party_id -superclass user_id \
       -extend_slot validator party_id_check
   party_id instproc check=party_id_check {value} {
     if {$value eq ""} {return 1}
@@ -1351,7 +1351,7 @@
   #
   ###########################################################
 
-  Class url -superclass text \
+  Class create url -superclass text \
       -extend_slot validator safe_url \
       -parameter {
 	{link_label}
@@ -1384,7 +1384,7 @@
   #
   ###########################################################
 
-  Class detail_link -superclass url -parameter {
+  Class create detail_link -superclass url -parameter {
     {link_label "#xowiki.weblog-more#"}
   }
   detail_link instproc pretty_value {v} {
@@ -1404,7 +1404,7 @@
   #
   ###########################################################
 
-  Class textarea -superclass FormField -parameter {
+  Class create textarea -superclass FormField -parameter {
     {rows 2}
     {cols 80}
     {spell false}
@@ -1433,7 +1433,7 @@
   #
   ###########################################################
 
-  Class code_listing -superclass textarea -parameter {
+  Class create code_listing -superclass textarea -parameter {
     {rows 20}
     {cols 80}
   }
@@ -1454,7 +1454,7 @@
   #
   ###########################################################
 
-  Class richtext -superclass textarea \
+  Class create richtext -superclass textarea \
       -extend_slot validator safe_html \
       -parameter {
         plugins 
@@ -1567,7 +1567,7 @@
   #    extraPlugins: tcl-list, is converted to comma list for js
   #
   ###########################################################
-  Class richtext::ckeditor -superclass richtext -parameter {
+  Class create richtext::ckeditor -superclass richtext -parameter {
     {editor ckeditor}
     {mode wysiwyg}
     {skin kama}
@@ -1747,7 +1747,7 @@
   #    extraPlugins: tcl-list, is converted to comma list for js
   #
   ###########################################################
-  Class richtext::ckeditor4 -superclass richtext -parameter {
+  Class create richtext::ckeditor4 -superclass richtext -parameter {
     {editor ckeditor4}
     {mode wysiwyg}
     {skin kama}
@@ -1978,7 +1978,7 @@
   # ::xowiki::formfield::richtext::wym
   #
   ###########################################################
-  Class richtext::wym -superclass richtext -parameter {
+  Class create richtext::wym -superclass richtext -parameter {
     {editor wym}
     {CSSclass wymeditor}
     width
@@ -2053,7 +2053,7 @@
   #
   ###########################################################
 
-  Class richtext::xinha -superclass richtext -parameter {
+  Class create richtext::xinha -superclass richtext -parameter {
     javascript
     {height}
     {style}
@@ -2154,7 +2154,7 @@
   ###########################################################
 
   # abstract superclass for select and radio
-  Class enumeration -superclass FormField -parameter {
+  Class create enumeration -superclass FormField -parameter {
     {options}
     {category_tree}
   }
@@ -2253,7 +2253,7 @@
   #
   ###########################################################
 
-  Class radio -superclass enumeration -parameter {
+  Class create radio -superclass enumeration -parameter {
     {horizontal false}
     {forced_name}
   }
@@ -2281,7 +2281,7 @@
   #
   ###########################################################
 
-  Class checkbox -superclass enumeration -parameter {
+  Class create checkbox -superclass enumeration -parameter {
     {horizontal false}
   }
   checkbox instproc initialize {} {
@@ -2323,7 +2323,7 @@
   #
   ###########################################################
 
-  Class select -superclass enumeration -parameter {
+  Class create select -superclass enumeration -parameter {
     {multiple "false"}
   }
 
@@ -2433,7 +2433,7 @@
   #
   ###########################################################
 
-  Class abstract_page -superclass candidate_box_select -parameter {
+  Class create abstract_page -superclass candidate_box_select -parameter {
     {as_box false}
     {multiple_style comma}
   }
@@ -2512,7 +2512,7 @@
   # ::xowiki::formfield::form_page
   #
   ###########################################################
-  Class form_page -superclass abstract_page -parameter {
+  Class create form_page -superclass abstract_page -parameter {
     {form}
     {where}
     {entry_label _title}
@@ -2598,7 +2598,7 @@
   # ::xowiki::formfield::page
   #
   ###########################################################
-  Class page -superclass abstract_page -parameter {
+  Class create page -superclass abstract_page -parameter {
     {type ::xowiki::Page}
     {with_subtypes false}
     {glob}
@@ -2642,7 +2642,7 @@
   #
   ###########################################################
 
-  Class DD -superclass select
+  Class create DD -superclass select
   DD instproc initialize {} {
     my options {
       {01  1} {02  2} {03  3} {04  4} {05  5} {06  6} {07  7} {08  8} {09  9} {10 10}
@@ -2659,7 +2659,7 @@
   #
   ###########################################################
 
-  Class HH24 -superclass select
+  Class create HH24 -superclass select
   HH24 instproc initialize {} {
     my options {
       {00  0} {01  1} {02  2} {03  3} {04  4} {05  5} {06  6} {07  7} {08  8} {09  9} 
@@ -2675,7 +2675,7 @@
   #
   ###########################################################
 
-  Class MI -superclass select
+  Class create MI -superclass select
   MI instproc value args {
     if {[llength $args] == 0} {return [my set value]} else {
       set v [lindex $args 0]
@@ -2699,7 +2699,7 @@
   #
   ###########################################################
 
-  Class MM -superclass select
+  Class create MM -superclass select
   MM instproc initialize {} {
     my options {
       {01  1} {02  2} {03 3} {04 4} {05 5} {06 6} {07 7} {08 8} {09 9} {10 10}
@@ -2713,7 +2713,7 @@
   #
   ###########################################################
 
-  Class mon -superclass select
+  Class create mon -superclass select
   mon instproc initialize {} {
     set values [lang::message::lookup [my locale] acs-lang.localization-abmon]
     if {[lang::util::translator_mode_p]} {set values [::xo::localize $values]}
@@ -2731,7 +2731,7 @@
   #
   ###########################################################
 
-  Class month -superclass select
+  Class create month -superclass select
   month instproc initialize {} {
     set values [lang::message::lookup [my locale] acs-lang.localization-mon]
     if {[lang::util::translator_mode_p]} {set values [::xo::localize $values]}
@@ -2750,7 +2750,7 @@
   #
   ###########################################################
 
-  Class YYYY -superclass numeric -parameter {
+  Class create YYYY -superclass numeric -parameter {
     {size 4}
     {maxlength 4}
   } -extend_slot validator YYYY
@@ -2767,7 +2767,7 @@
   # ::xowiki::formfield::youtube_url
   #
   ###########################################################
-  Class youtube_url -superclass text
+  Class create youtube_url -superclass text
   youtube_url set urlre {^http://www.youtube.com/watch[?]v=([^?]+)([?]?)}
   
   youtube_url instproc initialize {} {
@@ -2794,7 +2794,7 @@
   #
   ###########################################################
 
-  Class image_url -superclass text \
+  Class create image_url -superclass text \
       -extend_slot validator image_check \
       -parameter {
         href cssclass
@@ -2870,7 +2870,7 @@
 
   # note that the includelet "include" can be used for implementing symbolic links
   # to other xowiki pages.
-  Class include -superclass text -parameter {
+  Class create include -superclass text -parameter {
   }
 
   include instproc pretty_value {v} {
@@ -2907,7 +2907,7 @@
   #
   ###########################################################
 
-  Class redirect -superclass text
+  Class create redirect -superclass text
   redirect instproc pretty_value {v} {
     #ad_returnredirect -allow_complete_url $v
     #ad_script_abort
@@ -2920,7 +2920,7 @@
   #
   ###########################################################
 
-  Class CompoundField -superclass FormField -parameter {
+  Class create CompoundField -superclass FormField -parameter {
     {components ""}
     {CSSclass compound-field}
   } -extend_slot validator compound
@@ -3137,7 +3137,7 @@
   #
   ###########################################################
 
-  Class label -superclass FormField -parameter {
+  Class create label -superclass FormField -parameter {
     {disableOutputEscaping false}
   }
   label instproc render_item {} {
@@ -3163,7 +3163,7 @@
   # ::xowiki::formfield::child_pages
   #
   ###########################################################
-  Class child_pages -superclass label -parameter {
+  Class create child_pages -superclass label -parameter {
     {form}
     {publish_status all}
   }
@@ -3202,7 +3202,7 @@
   #
   ###########################################################
 
-  Class date -superclass CompoundField -parameter {
+  Class create date -superclass CompoundField -parameter {
     {format "DD MONTH YYYY"}
     {display_format "%Y-%m-%d %T"}
   }
@@ -3372,7 +3372,7 @@
   #
   ###########################################################
 
-  Class boolean -superclass radio -parameter {
+  Class create boolean -superclass radio -parameter {
     {default t}
   }
   boolean instproc value_if_nothing_is_returned_from_form {default} {
@@ -3431,7 +3431,7 @@
   #
   ###########################################################
 
-  Class scale -superclass radio -parameter {{n 5} {horizontal true}}
+  Class create scale -superclass radio -parameter {{n 5} {horizontal true}}
   scale instproc initialize {} {
     my instvar n
     set options [list]
@@ -3449,7 +3449,7 @@
   #
   ###########################################################
 
-  Class form -superclass richtext -parameter {
+  Class create form -superclass richtext -parameter {
     {height 200}
   } -extend_slot validator form
 
@@ -3469,7 +3469,7 @@
   #
   ###########################################################
 
-  Class form_constraints -superclass textarea -parameter {
+  Class create form_constraints -superclass textarea -parameter {
     {rows 5}
   } -extend_slot validator form_constraints
   # the form_constraints checker is defined already on the ::xowiki::Page level
@@ -3481,7 +3481,7 @@
   #
   ###########################################################
 
-  Class event -superclass CompoundField -parameter {
+  Class create event -superclass CompoundField -parameter {
     {multiday false}
   }
 
Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.188 -r1.189
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	20 Jul 2013 18:39:03 -0000	1.188
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	20 Jul 2013 19:15:43 -0000	1.189
@@ -3444,10 +3444,11 @@
     return "<a href='$link'>$label</a>"
   }
 
-  Class form-menu-button-new -superclass form-menu-button -parameter {
+  Class create form-menu-button-new -superclass form-menu-button -parameter {
     {method create-new}
   }
-  Class form-menu-button-answers -superclass form-menu-button -parameter {
+
+  Class create form-menu-button-answers -superclass form-menu-button -parameter {
     {method list}
   }
   form-menu-button-answers instproc render {} {
@@ -3462,7 +3463,7 @@
     next
   }
 
-  Class form-menu-button-form -superclass form-menu-button -parameter {
+  Class create form-menu-button-form -superclass form-menu-button -parameter {
     {method view}
   }