127 lines
2.2 KiB
Plaintext
127 lines
2.2 KiB
Plaintext
note
|
|
description: "Summary description for {WSF_MULTI_CONTROL}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
WSF_MULTI_CONTROL [G -> WSF_STATELESS_CONTROL]
|
|
|
|
inherit
|
|
|
|
WSF_CONTROL
|
|
redefine
|
|
read_state,
|
|
read_state_changes,
|
|
load_state
|
|
end
|
|
|
|
create
|
|
make_multi_control, make_with_tag_name
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make_multi_control (n: STRING)
|
|
do
|
|
make_with_tag_name (n, "div")
|
|
end
|
|
|
|
make_with_tag_name (n, t: STRING)
|
|
do
|
|
make_control (n, t)
|
|
controls := create {LINKED_LIST [G]}.make;
|
|
end
|
|
|
|
feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- STATE MANAGEMENT
|
|
|
|
load_state (new_states: JSON_OBJECT)
|
|
-- Pass new_states to subcontrols
|
|
do
|
|
Precursor (new_states)
|
|
across
|
|
controls as c
|
|
loop
|
|
if attached {WSF_CONTROL} c.item as cont then
|
|
cont.load_state (new_states)
|
|
end
|
|
end
|
|
end
|
|
|
|
set_state (new_state: JSON_OBJECT)
|
|
-- Before we process the callback. We restore the state of control.
|
|
do
|
|
end
|
|
|
|
read_state (states: JSON_OBJECT)
|
|
-- Read states in subcontrols
|
|
do
|
|
Precursor (states)
|
|
across
|
|
controls as c
|
|
loop
|
|
if attached {WSF_CONTROL} c.item as cont then
|
|
cont.read_state (states)
|
|
end
|
|
end
|
|
end
|
|
|
|
read_state_changes (states: JSON_OBJECT)
|
|
-- Read states_changes in subcontrols
|
|
do
|
|
Precursor (states)
|
|
across
|
|
controls as c
|
|
loop
|
|
if attached {WSF_CONTROL} c.item as cont then
|
|
cont.read_state_changes (states)
|
|
end
|
|
end
|
|
end
|
|
|
|
state: JSON_OBJECT
|
|
--Read state
|
|
do
|
|
create Result.make
|
|
end
|
|
|
|
feature -- EVENT HANDLING
|
|
|
|
handle_callback (cname: STRING; event: STRING; event_parameter: detachable STRING)
|
|
-- Pass callback to subcontrols
|
|
do
|
|
if equal (cname, control_name) then
|
|
else
|
|
across
|
|
controls as c
|
|
loop
|
|
if attached {WSF_CONTROL} c.item as cont then
|
|
cont.handle_callback (cname, event, event_parameter)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
feature
|
|
|
|
render: STRING
|
|
do
|
|
Result := ""
|
|
across
|
|
controls as c
|
|
loop
|
|
Result := c.item.render + Result
|
|
end
|
|
Result := render_tag (Result, "")
|
|
end
|
|
|
|
add_control (c: detachable G)
|
|
do
|
|
if attached c as d then
|
|
controls.put_front (d)
|
|
end
|
|
end
|
|
|
|
controls: LINKED_LIST [G]
|
|
|
|
end
|