Updated set_value for WSF_FORM_SELECTABLE_INPUT (for example a checkbox).

Call the feature set_checked_by_value iff the the current value exist in the
list of values, in other case set checked in Flase.
If we call set_checked_by_value without filter, previous checked values will be
set in False.
This commit is contained in:
jvelilla
2015-07-31 11:55:23 -03:00
parent 61f90bba38
commit 1e10ce8518

View File

@@ -72,12 +72,22 @@ feature -- Change
set_value (v: detachable WSF_VALUE) set_value (v: detachable WSF_VALUE)
-- Set value `v' if applicable to Current -- Set value `v' if applicable to Current
local
l_found: BOOLEAN
do do
if attached {ITERABLE [WSF_VALUE]} v as lst then if attached {ITERABLE [WSF_VALUE]} v as lst then
across across
lst as c lst as c
until
l_found
loop loop
if attached {WSF_STRING} c.item as s and then is_same_value (s.value) then
set_checked_by_value (c.item) set_checked_by_value (c.item)
l_found := true
end
end
if not l_found then
set_checked (False)
end end
else else
set_checked_by_value (v) set_checked_by_value (v)