Changed creation procedures

This commit is contained in:
Severin Münger
2013-09-05 15:08:02 +02:00
parent 633243311d
commit f866c067cb
7 changed files with 15 additions and 159 deletions

View File

@@ -11,32 +11,23 @@ inherit
WSF_CONTROL
redefine
make,
read_state,
read_state_changes,
load_state
end
create
make
make_multi_control
feature {NONE}
controls: LINKED_LIST [WSF_CONTROL]
make (n: STRING)
make_multi_control (n: STRING)
do
Precursor (n)
make (n, "div")
controls := create {LINKED_LIST [WSF_CONTROL]}.make;
end
make_with_controls (n: STRING; c: LINKED_LIST [WSF_CONTROL])
do
control_name := n
controls := c
create state_changes.make
end
feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- STATE MANAGEMENT
load_state (new_states: JSON_OBJECT)