Check-in [2ae4e3011a]

Not logged in

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

Overview
Comment:Correct ::WS::Client::SetOptions to actual set the option to the value passed in. ŧō
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | Release_2.3.5
Files: files | file ages | folders
SHA1:2ae4e3011ab018bcdc45e41e8e59b7686f67c070
User & Date: gerald 2013-05-29 22:03:13
Context
2013-05-31 18:31
Correction to ignore namespace definitions on child elements when parsing response with attributes. check-in: 0c0c56dfc5 user: gerald tags: trunk, Release_2.3.6
2013-05-29 22:03
Correct ::WS::Client::SetOptions to actual set the option to the value passed in. ≈ß≈ç check-in: 2ae4e3011a user: gerald tags: trunk, Release_2.3.5
2013-05-29 21:53
Fixed check. check-in: ed7917e66e user: gerald tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ClientSide.tcl.

157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
proc ::WS::Client::SetOption {option args} {
    variable options

    if {[info exists options($option)]} {
        if {[llength $args] == 0} {
            return $options($option)
        } elseif {[llength $args] == 1} {
            set options($option) [lindex $args 1]
        } else {
            return  -code error \
                    -errorcode [list WS CLIENT INVALDCNT $args] \
                    "Invalid number of values: '$args'"
        }
    } else {
        return  -code error \







|







157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
proc ::WS::Client::SetOption {option args} {
    variable options

    if {[info exists options($option)]} {
        if {[llength $args] == 0} {
            return $options($option)
        } elseif {[llength $args] == 1} {
            set options($option) [lindex $args 0]
        } else {
            return  -code error \
                    -errorcode [list WS CLIENT INVALDCNT $args] \
                    "Invalid number of values: '$args'"
        }
    } else {
        return  -code error \