Change STRING TO STRING_32

This commit is contained in:
YNH Webdev
2014-03-05 14:54:45 +01:00
parent 7ca62463b7
commit 605a094910
41 changed files with 177 additions and 177 deletions

View File

@@ -31,7 +31,7 @@ feature {NONE} -- Initialization
end
end
make_with_agent (c: FUNCTION [ANY, TUPLE [STRING], JSON_ARRAY])
make_with_agent (c: FUNCTION [ANY, TUPLE [STRING_32], JSON_ARRAY])
-- Initialize with specified name and autocompletion function
do
make_input ( "")
@@ -49,7 +49,7 @@ feature -- State
feature -- Callback
handle_callback (cname: LIST[STRING]; event: STRING; event_parameter: detachable ANY)
handle_callback (cname: LIST[STRING_32]; event: STRING_32; event_parameter: detachable ANY)
do
Precursor {WSF_INPUT_CONTROL} (cname, event, event_parameter)
if cname[1].same_string (control_name) and event.same_string ("autocomplete") then
@@ -59,8 +59,8 @@ feature -- Callback
feature -- Properties
create_json_list: FUNCTION [ANY, TUPLE [STRING], JSON_ARRAY]
create_json_list: FUNCTION [ANY, TUPLE [STRING_32], JSON_ARRAY]
template: STRING
template: STRING_32
end

View File

@@ -19,7 +19,7 @@ create
feature {NONE} -- Initialization
make (l, c: STRING)
make (l, c: STRING_32)
-- Initialize with specified control name,
do
make_value_control ("input")
@@ -54,7 +54,7 @@ feature --Event handling
change_event := e
end
handle_callback (cname: LIST [STRING]; event: STRING; event_parameter: detachable ANY)
handle_callback (cname: LIST [STRING_32]; event: STRING_32; event_parameter: detachable ANY)
do
if Current.control_name.same_string (cname [1]) and attached change_event as cevent then
if event.same_string ("change") then
@@ -65,9 +65,9 @@ feature --Event handling
feature -- Implementation
render: STRING
render: STRING_32
local
attrs: STRING
attrs: STRING_32
do
attrs := "type=%"checkbox%""
if checked then
@@ -88,13 +88,13 @@ feature -- Implementation
feature -- Properties
label: STRING
label: STRING_32
-- The label of the checkbox control
checked: BOOLEAN
-- The checked value of the checkbox control
checked_value: STRING
checked_value: STRING_32
-- String checked value
change_event: detachable PROCEDURE [ANY, TUPLE]

View File

@@ -9,7 +9,7 @@ class
inherit
WSF_VALUE_CONTROL [LIST [STRING]]
WSF_VALUE_CONTROL [LIST [STRING_32]]
rename
make as make_control
undefine
@@ -36,9 +36,9 @@ feature {NONE} -- Initializaton
feature -- Implementation
value: LIST [STRING]
value: LIST [STRING_32]
do
create {ARRAYED_LIST [STRING]} Result.make (0)
create {ARRAYED_LIST [STRING_32]} Result.make (0)
across
controls as c
loop
@@ -48,7 +48,7 @@ feature -- Implementation
end
end
set_value (v: LIST [STRING])
set_value (v: LIST [STRING_32])
do
across
controls as c

View File

@@ -12,7 +12,7 @@ create
feature {NONE}
make (a_name, a_type: STRING; a_size: INTEGER; a_id: detachable STRING)
make (a_name, a_type: STRING_32; a_size: INTEGER; a_id: detachable STRING_32)
do
name := a_name
type := a_type
@@ -22,7 +22,7 @@ feature {NONE}
feature
set_id (a_id: detachable STRING)
set_id (a_id: detachable STRING_32)
do
id := a_id
end
@@ -34,16 +34,16 @@ feature --Properties
Result := attached id
end
name: STRING
name: STRING_32
-- File name
type: STRING
type: STRING_32
-- File mime type
size: INTEGER
-- File size
id: detachable STRING
id: detachable STRING_32
-- Server side file id (e.g. S3 filename)
end

View File

@@ -35,7 +35,7 @@ feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- State management
set_state (new_state: JSON_OBJECT)
-- Restore text from json
local
id: detachable STRING
id: detachable STRING_32
do
if attached {JSON_STRING} new_state.item ("file_name") as new_name and attached {JSON_STRING} new_state.item ("file_type") as new_type and attached {JSON_NUMBER} new_state.item ("file_size") as new_size then
if attached {JSON_STRING} new_state.item ("file_id") as a_id then
@@ -69,12 +69,12 @@ feature {WSF_PAGE_CONTROL, WSF_CONTROL} -- State management
feature -- Event handling
handle_callback (cname: LIST [STRING]; event: STRING; event_parameter: detachable ANY)
handle_callback (cname: LIST [STRING_32]; event: STRING_32; event_parameter: detachable ANY)
local
f_name: detachable STRING
f_type: detachable STRING
f_name: detachable STRING_32
f_type: detachable STRING_32
f_size: detachable INTEGER
f_id: detachable STRING
f_id: detachable STRING_32
do
if Current.control_name.same_string (cname [1]) then
if attached change_event as cevent and event.same_string ("change") then
@@ -117,9 +117,9 @@ feature -- Implementation
Result := file
end
render: STRING
render: STRING_32
local
attr: STRING
attr: STRING_32
do
attr := "type=%"file%" "
if attached attributes as a then
@@ -189,7 +189,7 @@ feature -- Properties
upload_done_event: detachable PROCEDURE [ANY, TUPLE]
-- Procedure to be execued when upload was successful
upload_function: detachable FUNCTION [ANY, TUPLE [ITERABLE [WSF_UPLOADED_FILE]], detachable STRING]
upload_function: detachable FUNCTION [ANY, TUPLE [ITERABLE [WSF_UPLOADED_FILE]], detachable STRING_32]
-- Store uploaded file and return server side file id
end

View File

@@ -9,7 +9,7 @@ class
inherit
WSF_VALUE_CONTROL [STRING]
WSF_VALUE_CONTROL [STRING_32]
rename
make as make_value_control
end
@@ -19,7 +19,7 @@ create
feature {NONE} -- Initialization
make (v: STRING)
make (v: STRING_32)
-- Initialize with specified value
do
make_value_control ("input")
@@ -54,7 +54,7 @@ feature --Event handling
change_event := e
end
handle_callback (cname: LIST [STRING]; event: STRING; event_parameter: detachable ANY)
handle_callback (cname: LIST [STRING_32]; event: STRING_32; event_parameter: detachable ANY)
do
if Current.control_name.same_string (cname [1]) and attached change_event as cevent then
if event.same_string ("change") then
@@ -65,9 +65,9 @@ feature --Event handling
feature -- Rendering
render: STRING
render: STRING_32
local
attr: STRING
attr: STRING_32
do
attr := "type=%"" + type + "%" value=%"" + text + "%" "
if attached attributes as a then
@@ -81,7 +81,7 @@ feature -- Rendering
feature -- Change
set_text (t: STRING)
set_text (t: STRING_32)
-- Set text to be displayed
do
if not t.same_string (text) then
@@ -98,19 +98,19 @@ feature -- Change
end
end
set_type (t: STRING)
set_type (t: STRING_32)
do
type := t
end
feature -- Implementation
value: STRING
value: STRING_32
do
Result := text
end
set_value (v: STRING)
set_value (v: STRING_32)
do
text := v
end
@@ -120,10 +120,10 @@ feature -- Properties
disabled: BOOLEAN
-- Defines if the input field is editable
text: STRING
text: STRING_32
-- Text to be displayed
type: STRING
type: STRING_32
-- Type of this input control
change_event: detachable PROCEDURE [ANY, TUPLE]

View File

@@ -19,7 +19,7 @@ create
feature {NONE} -- Initialization
make (v: STRING)
make (v: STRING_32)
-- Initialize with specified control name and text
do
make_input (v)

View File

@@ -21,7 +21,7 @@ create
feature {NONE} -- Initialization
make (t: STRING)
make (t: STRING_32)
-- Initialize with specified control name and text to be displayed in this textarea
do
make_input (t)
@@ -30,7 +30,7 @@ feature {NONE} -- Initialization
feature -- Rendering
render: STRING
render: STRING_32
do
Result := render_tag (text, "")
end