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 -N -r1.284.2.233 -r1.284.2.234 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 24 Jan 2023 11:28:27 -0000 1.284.2.233 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 22 Feb 2023 12:57:18 -0000 1.284.2.234 @@ -242,7 +242,7 @@ return [string map [list __COMMA__ ,] $string] } - FormField proc get_from_name {object name} { + FormField proc get_from_name {object:object name} { # # Get a form field via name. The provided names are unique for a # form. If multiple forms should be rendered simultaneously, we @@ -318,7 +318,7 @@ return [:uplevel [list :$validator_method $value]] } - FormField instproc validate {obj} { + FormField instproc validate {obj:object} { # use the 'value' method to deal e.g. with compound fields set value [:value] #:msg "[:info class] value=$value req=${:required} // ${:value} //" @@ -409,7 +409,7 @@ :set_disabled false } - FormField proc interprete_condition {-package_id -object cond} { + FormField proc interprete_condition {-package_id -object:object cond} { if {[::xo::cc info methods role=$cond] ne ""} { if {$cond eq "creator"} { set success [::xo::cc role=$cond \ @@ -429,7 +429,7 @@ FormField set cond_regexp {^([^=?]+)[?]([^:]*)[:](.*)$} - FormField proc get_single_spec {-package_id -object string} { + FormField proc get_single_spec {-package_id -object:object string} { if {[regexp ${:cond_regexp} $string _ condition true_spec false_spec]} { if {[:interprete_condition -package_id $package_id -object $object $condition]} { return [:get_single_spec -package_id $package_id -object $object $true_spec] @@ -1603,7 +1603,7 @@ } } - CompoundField instproc validate {obj} { + CompoundField instproc validate {obj:object} { # Delegate validate to the components. If a validation of a # component fails, report the error message back. foreach c ${:components} { 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 -N -r1.42.2.11 -r1.42.2.12 --- openacs-4/packages/xowiki/tcl/import-procs.tcl 26 Nov 2022 17:00:29 -0000 1.42.2.11 +++ openacs-4/packages/xowiki/tcl/import-procs.tcl 22 Feb 2023 12:57:18 -0000 1.42.2.12 @@ -38,7 +38,7 @@ [:report_lines]" } - Importer instproc import {-object:required -replace -create_user_ids} { + Importer instproc import {-object:object,required -replace:boolean -create_user_ids} { # # Import a single object. In essence, this method demarshalls a # single object and inserts it (or updates it) in the database. It 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 -N -r1.239.2.102 -r1.239.2.103 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 15 Dec 2022 19:30:02 -0000 1.239.2.102 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 22 Feb 2023 12:57:18 -0000 1.239.2.103 @@ -4800,7 +4800,7 @@ {-height "500px"} }} } -ad_doc { - Include an iframe contining the specified URL + Include an iframe containing the specified URL @param title @param url 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 -N -r1.106.2.21 -r1.106.2.22 --- openacs-4/packages/xowiki/tcl/link-procs.tcl 31 Dec 2021 11:22:34 -0000 1.106.2.21 +++ openacs-4/packages/xowiki/tcl/link-procs.tcl 22 Feb 2023 12:57:18 -0000 1.106.2.22 @@ -653,7 +653,7 @@ # Class create LinkCache # LinkCache proc flush {parent_id {item_id ""}} { # if {$item_id eq ""} { - # :acs::clusterwide acs::cache_flush_all xowiki_cache link-*-$name-$parent_id + # :acs::clusterwide acs::cache_flush_pattern xowiki_cache link-*-$name-$parent_id # } else { # foreach entry [ns_cache names xowiki_cache link-*-$parent_id] { # array set tmp [ns_cache get xowiki_cache $entry] 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 -N -r1.332.2.128 -r1.332.2.129 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 9 Jan 2023 15:15:22 -0000 1.332.2.128 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 22 Feb 2023 12:57:18 -0000 1.332.2.129 @@ -764,7 +764,7 @@ {-siteurl ""} {-lang ""} {-parent_id ""} - {-download false} + {-download:boolean false} {-context_url ""} {-folder_ids ""} {-path_encode:boolean true} @@ -1217,7 +1217,7 @@ {-with_entities 0} -privilege -link - object + object:object {method ""} args } { @@ -1521,7 +1521,7 @@ Package ad_instproc resolve_page { {-use_package_path true} - {-simple false} + {-simple:boolean false} -lang object method_var @@ -1533,7 +1533,7 @@ @param use_package_path @param simple when set, do not try to resolve using item refs, prototype pages or package_path @param lang language used for resolving - @param object element to be resolved + @param object element name to be resolved (not an xotcl object) @param method_var output variable for method to be called on the object @return instantiated object (Page or Package) or empty @@ -2544,7 +2544,7 @@ return [::xowiki::CSS toolkit] } - Package instproc call {object method options} { + Package instproc call {object:object method options} { set allowed [${:policy} enforce_permissions \ -package_id ${:id} -user_id [::xo::cc user_id] \ $object $method] @@ -2858,7 +2858,7 @@ Package ad_proc google_sitemapindex { {-changefreq "daily"} {-priority "priority"} - {-package} + {-package:object} } { This method provides a sitemap index of all xowiki 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 -N -r1.14.2.12 -r1.14.2.13 --- openacs-4/packages/xowiki/tcl/repeat-procs.tcl 5 Sep 2022 11:31:32 -0000 1.14.2.12 +++ openacs-4/packages/xowiki/tcl/repeat-procs.tcl 22 Feb 2023 12:57:18 -0000 1.14.2.13 @@ -282,7 +282,7 @@ } } - repeatContainer instproc validate {obj} { + repeatContainer instproc validate {obj:object} { foreach c [lrange ${:components} 1 [:count_values [:value]]] { set result [$c validate $obj] if {$result ne ""} { 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 -N -r1.23.2.19 -r1.23.2.20 --- openacs-4/packages/xowiki/tcl/tree-procs.tcl 9 Apr 2022 14:57:04 -0000 1.23.2.19 +++ openacs-4/packages/xowiki/tcl/tree-procs.tcl 22 Feb 2023 12:57:18 -0000 1.23.2.20 @@ -439,7 +439,7 @@ -superclass TreeRenderer=list \ -li_expanded_atts [list "class='expanded'" ""] - TreeRenderer=yuitree proc include_head_entries {{-style ""} {-ajax 1} args} { + TreeRenderer=yuitree proc include_head_entries {{-style ""} {-ajax:boolean 1} args} { ::xo::Page requireCSS urn:ad:css:yui2:fonts/fonts-min ::xo::Page requireCSS urn:ad:css:yui2:treeview/assets/skins/sam/treeview if {$style ne ""} { Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -N -r1.542.2.171 -r1.542.2.172 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 3 Jan 2023 10:56:46 -0000 1.542.2.171 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 22 Feb 2023 12:57:18 -0000 1.542.2.172 @@ -1639,7 +1639,7 @@ } } - FormPage ad_instproc update_attribute_from_slot {-revision_id slot value} { + FormPage ad_instproc update_attribute_from_slot {-revision_id slot:object value} { Tailored version of update_attribute_from_slot to keep insert_xowiki_form_instance_item_index in sync after single @@ -1723,7 +1723,7 @@ -item_id:required {-revision_id 0} -object:required - {-initialize true} + {-initialize:boolean true} } { Load a content item into the specified object. If revision_id is provided, the specified revision is returned, otherwise the live Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -N -r1.368.2.138 -r1.368.2.139 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 15 Dec 2022 19:30:02 -0000 1.368.2.138 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 22 Feb 2023 12:57:19 -0000 1.368.2.139 @@ -1043,7 +1043,7 @@ FormPage ad_instproc www-edit { {-validation_errors ""} {-disable_input_fields 0} - {-view true} + {-view:boolean true} } { This web-callable method renders a form page in "edit" mode