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 | SQL archive |
| Timelines: | family | ancestors | trunk | Release_2.6.2 |
| Files: | files | file ages | folders |
| SHA3-256: |
58072a102f715e17677ab6270de7089e |
| User & Date: | oehhar 2018-12-06 13:06:47 |
Context
| 2018-12-06 13:06 | Revert an optimisation which limits the argument list. The method may set multiple arguments. Leaf 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
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
|