I made a very trivial patch of form.tcl that seems to cure the wrong
handling of checkbox input fields when a value carries a space character
in it (see bug #52653). I think this patch somehow modifies what Jeff
did to the form.tcl recently.
-- Massimo
17c17
< # $Id: form.tcl 1338460 2012-05-14 22:25:41Z mxmanghi $
---
> # $Id: form.tcl 1340770 2012-05-20 17:11:00Z mxmanghi $
30,34d29
<
< # first of all we make sure DefaultValues is an array
<
< array set DefaultValues {}
<
49d43
<
219d212
<
221,232d213
<
< # if there is no __$var variable in the defaults we are
< # dealing with a single value so we don't look it up
< # with lsearch, but we compare the 2 variable as strings,
< # so that spaces in the value won't be confused as a list of
< # multiple elements....
<
< if {![info exists DefaultValues(__${name})]} {
< if {[string match $DefaultValues($name) $data(value)]} {
< set data(checked) "checked"
< }
< } else {
236d216
< }
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
