Index: openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl,v diff -u -r1.41.2.6 -r1.41.2.7 --- openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl 8 Sep 2014 10:55:43 -0000 1.41.2.6 +++ openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl 29 Jan 2015 12:35:54 -0000 1.41.2.7 @@ -9,7 +9,7 @@ namespace eval ::xowiki { - Class ADP_Generator -parameter { + Class create ADP_Generator -parameter { {master 1} {wikicmds 1} {footer 1} Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v diff -u -r1.27.2.8 -r1.27.2.9 --- openacs-4/packages/xowiki/tcl/folder-procs.tcl 12 Jan 2015 12:13:33 -0000 1.27.2.8 +++ openacs-4/packages/xowiki/tcl/folder-procs.tcl 29 Jan 2015 12:35:54 -0000 1.27.2.9 @@ -620,7 +620,7 @@ # ########################################################### - Class menuentries -superclass textarea -parameter { + Class create menuentries -superclass textarea -parameter { {rows 10} {cols 80} } Index: openacs-4/packages/xowiki/tcl/import-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/import-procs.tcl,v diff -u -r1.27.2.7 -r1.27.2.8 --- openacs-4/packages/xowiki/tcl/import-procs.tcl 18 Aug 2014 09:18:03 -0000 1.27.2.7 +++ openacs-4/packages/xowiki/tcl/import-procs.tcl 29 Jan 2015 12:35:54 -0000 1.27.2.8 @@ -9,7 +9,7 @@ namespace eval ::xowiki { - Class Importer -parameter { + Class create Importer -parameter { {added 0} {replaced 0} {updated 0} {inherited 0} {package_id} {parent_id} {user_id} } Index: openacs-4/packages/xowiki/tcl/link-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v diff -u -r1.90.2.11 -r1.90.2.12 --- openacs-4/packages/xowiki/tcl/link-procs.tcl 9 Jan 2015 20:09:18 -0000 1.90.2.11 +++ openacs-4/packages/xowiki/tcl/link-procs.tcl 29 Jan 2015 12:35:54 -0000 1.90.2.12 @@ -670,7 +670,7 @@ # link cache # - # Class LinkCache + # Class create LinkCache # LinkCache instproc resolve {} { # set key link-[my type]-[my name]-[my parent_id] # while {1} { Index: openacs-4/packages/xowiki/tcl/package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v diff -u -r1.279.2.20 -r1.279.2.21 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 11 Jan 2015 20:50:01 -0000 1.279.2.20 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 29 Jan 2015 12:35:54 -0000 1.279.2.21 @@ -2334,7 +2334,7 @@ # Repeated parameter lookups are quite likely # - Class ParameterCache + Class create ParameterCache ParameterCache instproc get_parameter {{-check_query_parameter true} {-type ""} attribute {default ""}} { set key [list [my id] [self proc] $attribute] if {[info commands "::xo::cc"] ne ""} { @@ -2366,7 +2366,7 @@ Policy policy1 -contains { - Class Package -array set require_permission { + Class create Package -array set require_permission { reindex swa change-page-order {{id admin}} import-prototype-page swa @@ -2385,7 +2385,7 @@ } } - Class Page -array set require_permission { + Class create Page -array set require_permission { view none revisions {{package_id write}} diff {{package_id write}} @@ -2404,18 +2404,18 @@ create-or-use {{parent_id create}} } -set default_permission {{package_id write}} - Class Object -array set require_permission { + Class create Object -array set require_permission { edit swa } - Class File -array set require_permission { + Class create File -array set require_permission { download none } - Class Form -array set require_permission { + Class create Form -array set require_permission { list {{package_id read}} edit admin view admin } - Class CrFolder -array set require_permission { + Class create CrFolder -array set require_permission { view none delete {{package_id admin}} edit-new {{item_id write}} @@ -2427,7 +2427,7 @@ # we require side wide admin rights for deletions and code # - Class Package -array set require_permission { + Class create Package -array set require_permission { reindex {{id admin}} rss none refresh-login none @@ -2445,7 +2445,7 @@ } } - Class Page -array set require_permission { + Class create Page -array set require_permission { view {{package_id read}} revisions {{package_id write}} diff {{package_id write}} @@ -2463,13 +2463,13 @@ create-or-use {{parent_id create}} } - Class Object -array set require_permission { + Class create Object -array set require_permission { edit swa } - Class File -array set require_permission { + Class create File -array set require_permission { download {{package_id read}} } - Class Form -array set require_permission { + Class create Form -array set require_permission { view admin edit admin list {{package_id read}} @@ -2482,7 +2482,7 @@ # we perform checking on item_ids for pages. # - Class Package -array set require_permission { + Class create Package -array set require_permission { reindex {{id admin}} rss none refresh-login none @@ -2500,7 +2500,7 @@ } } - Class Page -array set require_permission { + Class create Page -array set require_permission { view {{item_id read}} revisions {{item_id write}} diff {{item_id write}} @@ -2515,18 +2515,18 @@ create-or-use {{parent_id create}} } - Class Object -array set require_permission { + Class create Object -array set require_permission { edit swa } - Class File -array set require_permission { + Class create File -array set require_permission { download {{package_id read}} } - Class Form -array set require_permission { + Class create Form -array set require_permission { view admin edit admin list {{item_id read}} } - # Class FormPage -array set require_permission { + # Class create FormPage -array set require_permission { # view { # {{is_true {_creation_user = @current_user@}} item_id read} # swa @@ -2547,7 +2547,7 @@ # Policy policy5 -contains { - Class Package -array set require_permission { + Class create Package -array set require_permission { reindex {{id admin}} rss none refresh-login none @@ -2565,7 +2565,7 @@ } } - Class Page -array set require_permission { + Class create Page -array set require_permission { view {{item_id read}} revisions {{item_id write}} diff {{item_id write}} @@ -2581,20 +2581,20 @@ show-object swa } - Class Object -array set require_permission { + Class create Object -array set require_permission { edit swa } - Class File -array set require_permission { + Class create File -array set require_permission { download {{package_id read}} } - Class FormPage -array set require_permission { + Class create FormPage -array set require_permission { view creator edit { {{in_state initial|suspended|working} creator} admin } list admin } - Class Form -array set require_permission { + Class create Form -array set require_permission { view admin edit admin list admin Index: openacs-4/packages/xowiki/tcl/repeat-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/repeat-procs.tcl,v diff -u -r1.2.2.4 -r1.2.2.5 --- openacs-4/packages/xowiki/tcl/repeat-procs.tcl 15 Apr 2014 06:33:15 -0000 1.2.2.4 +++ openacs-4/packages/xowiki/tcl/repeat-procs.tcl 29 Jan 2015 12:35:54 -0000 1.2.2.5 @@ -51,7 +51,7 @@ # ::xowiki::formfield::repeatContainer # ########################################################### - Class repeatContainer -superclass ::xowiki::formfield::CompoundField -parameter { + Class create repeatContainer -superclass ::xowiki::formfield::CompoundField -parameter { {min 1} {max 5} } Index: openacs-4/packages/xowiki/tcl/syndicate-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/syndicate-procs.tcl,v diff -u -r1.40.2.5 -r1.40.2.6 --- openacs-4/packages/xowiki/tcl/syndicate-procs.tcl 21 Aug 2014 11:03:01 -0000 1.40.2.5 +++ openacs-4/packages/xowiki/tcl/syndicate-procs.tcl 29 Jan 2015 12:35:54 -0000 1.40.2.6 @@ -6,7 +6,7 @@ # # RSS 2.0 support # - Class XMLSyndication -parameter {package_id} + Class create XMLSyndication -parameter {package_id} XMLSyndication instproc init {} { my set xmlMap [list & "&" < "<" > ">" \" """ ' "'"] @@ -185,7 +185,7 @@ return $content } - Class Podcast -superclass RSS -parameter { + Class create Podcast -superclass RSS -parameter { {subtitle ""} {description ""} {summary ""} @@ -270,7 +270,7 @@ return $content } - Class Timeline -superclass XMLSyndication \ + Class create Timeline -superclass XMLSyndication \ -parameter {user_id {limit 1000}} Timeline instproc reverse list { Index: openacs-4/packages/xowiki/tcl/tree-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/tree-procs.tcl,v diff -u -r1.10.2.2 -r1.10.2.3 --- openacs-4/packages/xowiki/tcl/tree-procs.tcl 13 Mar 2014 13:00:01 -0000 1.10.2.2 +++ openacs-4/packages/xowiki/tcl/tree-procs.tcl 29 Jan 2015 12:35:55 -0000 1.10.2.3 @@ -13,7 +13,7 @@ # This class manages the creation and rendering of the nodes of the # tree. It provides a name and id for rending in HTML. - Class Tree \ + Class create Tree \ -superclass ::xo::OrderedComposite \ -parameter { {name ""} @@ -128,7 +128,7 @@ # associated categorized items, which can be added via the method # "add_item". # - Class TreeNode -superclass Tree -parameter { + Class create TreeNode -superclass Tree -parameter { level label pos {open_requests 0} count {href ""} object owner li_id ul_id ul_class {prefix ""} {expanded false} {highlight false} Index: openacs-4/packages/xowiki/tcl/yui-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/yui-procs.tcl,v diff -u -r1.1.2.4 -r1.1.2.5 --- openacs-4/packages/xowiki/tcl/yui-procs.tcl 29 Jan 2015 12:24:59 -0000 1.1.2.4 +++ openacs-4/packages/xowiki/tcl/yui-procs.tcl 29 Jan 2015 12:35:55 -0000 1.1.2.5 @@ -11,7 +11,7 @@ namespace eval ::xowiki { - ::xo::tdom::Class YUIMenuItemList \ + ::xo::tdom::Class create YUIMenuItemList \ -superclass Menu \ -parameter { header @@ -204,7 +204,7 @@ # TODO: Support for Multiple Element IDs/Refs as Trigger - ::xo::tdom::Class YUIContextMenu \ + ::xo::tdom::Class create YUIContextMenu \ -superclass YUIMenu \ -parameter { {trigger "document"} @@ -231,7 +231,7 @@ # # YUIContextMenuItem # - ::xo::tdom::Class YUIContextMenuItem \ + ::xo::tdom::Class create YUIContextMenuItem \ -superclass YUIMenuItem @@ -408,7 +408,7 @@ } - Class AnchorField \ + Class create AnchorField \ -superclass ::xo::Table::AnchorField \ -ad_doc " In addition to the standard TableWidget's AnchorField, we also allow the attributes