Check-in [58072a102f]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Revert an optimisation which limits the argument list. The method may set multiple arguments.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk | Release_2.6.2
Files: files | file ages | folders
SHA3-256: 58072a102f715e17677ab6270de7089e4d10cfb3b287a3de80c67e7d22853fb1
User & Date: oehhar 2018-12-06 13:06:47.807
Context
2019-11-20 18:44
Rework client async callback to log an error on call failures. Allow empty argument to disable functionality. check-in: 69e06af316 user: oehhar tags: trunk
2018-12-06 13:06
Revert an optimisation which limits the argument list. The method may set multiple arguments. check-in: 58072a102f user: oehhar tags: trunk, Release_2.6.2
2018-12-06 12:17
(WSDL)Support type with namespace definition in tag. Ticket [6fbee3208e] check-in: a1cf727fd3 user: oehhar tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Utilities.tcl.
4880
4881
4882
4883
4884
4885
4886
4887
4888

4889
4890
4891
4892
4893
4894
4895
#
###########################################################################
if {[package vcompare [info patchlevel] 8.5] == -1} {
    ##
    ## 8.4, so can not use {*} expansion
    ##
    proc ::WS::Utils::setAttr {node attrList} {
        lassign $attrList name value
        $node setAttribute $name $value

    }
} else {
    ##
    ## 8.5 or later, so use {*} expansion
    ##
    proc ::WS::Utils::setAttr {node attrList} {
        $node setAttribute {*}$attrList







|
|
>







4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
#
###########################################################################
if {[package vcompare [info patchlevel] 8.5] == -1} {
    ##
    ## 8.4, so can not use {*} expansion
    ##
    proc ::WS::Utils::setAttr {node attrList} {
        foreach {name value} $attrList {
            $node setAttribute $name $value
        }
    }
} else {
    ##
    ## 8.5 or later, so use {*} expansion
    ##
    proc ::WS::Utils::setAttr {node attrList} {
        $node setAttribute {*}$attrList