_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