Create new JSON_OBJECT

This commit is contained in:
YNH Webdev
2013-09-27 10:57:40 +02:00
parent 113df6efe1
commit b6c082e1fe
21 changed files with 224 additions and 94 deletions

View File

@@ -33,17 +33,17 @@ feature {NONE} -- Initialization
feature -- State handling
set_state (new_state: JSON_OBJECT)
set_state (new_state: WSF_JSON_OBJECT)
do
if attached {JSON_NUMBER} new_state.item ("progress") as new_progress then
progress := new_progress.item.to_integer
end
end
state: JSON_OBJECT
state: WSF_JSON_OBJECT
do
create Result.make
Result.put (create {JSON_NUMBER}.make_integer (progress_value), "progress")
Result.put_integer (progress_value, "progress")
end
feature -- Event handling
@@ -51,7 +51,7 @@ feature -- Event handling
handle_callback (cname: STRING; event: STRING; event_parameter: detachable STRING)
do
if cname.same_string (control_name) and event.same_string ("progress_fetch") then
state_changes.put (create {JSON_NUMBER}.make_integer (progress_value), "progress")
state_changes.put_integer (progress_value, "progress")
end
end
@@ -75,7 +75,7 @@ feature -- Change
valid_input_value: p >= 0 and p <= 100
do
progress := p
state_changes.put (create {JSON_NUMBER}.make_integer (progress), "progress")
state_changes.put_integer (progress, "progress")
end
feature -- Implementation