_acs-templating__spellcheck__spellcheck_properties (private)
_acs-templating__spellcheck__spellcheck_properties
Defined in packages/acs-templating/tcl/test/spell-checker-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ array set element { id test_element mode edit } set command {template::util::spellcheck::spellcheck_properties -element_ref element} # text set element(widget) text # text widget doesn't support spellcheck set spellcheck_p false aa_log "--- Spell-checking enabled on widget \"$element(widget)\"? --- $command" array set spellcheck [{*}$command] aa_false "Spell-checking disabled" $spellcheck(render_p) if { $spellcheck(render_p) } { aa_log "$spellcheck(selected_option) is the default" } # formwidgets where spellcheck is enabled array set widget_info [string trim [parameter::get_from_package_key -package_key acs-templating -parameter SpellcheckFormWidgets -default ""]] # textarea set element(widget) textarea # spellcheck conf from parameter set spellcheck_p [expr { [info exists widget_info($element(widget))] && $widget_info($element(widget)) }] aa_log "--- Spell-checking enabled on widget \"$element(widget)\"? --- $command" array set spellcheck [{*}$command] aa_true "Spell-checking as configured in acs-templating.SpellcheckFormWidgets parameter" {!($spellcheck(render_p) ^ $spellcheck_p)} if { $spellcheck(render_p) } { aa_log "$spellcheck(selected_option) is the default" } # richtext set element(widget) richtext # spellcheck conf from parameter set spellcheck_p [expr { [info exists widget_info($element(widget))] && $widget_info($element(widget)) }] aa_log "--- Spell-checking enabled on widget \"$element(widget)\"? --- $command" array set spellcheck [{*}$command] aa_true "Spell-checking as configured in acs-templating.SpellcheckFormWidgets parameter" {!($spellcheck(render_p) ^ $spellcheck_p)} if { $spellcheck(render_p) } { aa_log "$spellcheck(selected_option) is the default" } }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "spellcheck__spellcheck_properties (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle