template::util::richtext::set_property (public)

 template::util::richtext::set_property what richtext_list value

Defined in packages/acs-templating/tcl/richtext-procs.tcl

Set a property of the richtext datatype.

Parameters:
what (required)
One of
  • contents (synonyms content, text)
  • format (synonym mime_type)
richtext_list (required)
the richtext list to modify
value (required)
the new value
Returns:
the modified list

Testcases:
No testcase defined.
Source code:
    lassign $richtext_list contents format

    switch -- $what {
        contents - content - text {
            # Replace contents with value
            return [list $value $format]
        }
        format - mime_type {
            # Replace format with value
            return [list $contents $value]
        }
        default {
            error "Invalid property $what, valid properties are text (synonyms content, contents), mime_type (synonym format)."
        }
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: