Fixed creation procedures (make)

This commit is contained in:
severin
2013-11-02 18:34:48 +01:00
parent 1b831375ef
commit 10b950a7e7
28 changed files with 162 additions and 86 deletions

View File

@@ -10,26 +10,28 @@ class
inherit
WSF_INPUT_CONTROL
rename
make as make_input
redefine
handle_callback,
state
end
create
make_autocomplete, make_autocomplete_with_agent
make, make_with_agent
feature {NONE} -- Initialization
make_autocomplete (n: STRING; c: WSF_AUTOCOMPLETION)
make (n: STRING; c: WSF_AUTOCOMPLETION)
-- Initialize with specified name and autocompletion
do
make_autocomplete_with_agent (n, agent c.autocompletion)
make_with_agent (n, agent c.autocompletion)
if attached c.template as t then
template := t
end
end
make_autocomplete_with_agent (n: STRING; c: FUNCTION [ANY, TUPLE [STRING], JSON_ARRAY])
make_with_agent (n: STRING; c: FUNCTION [ANY, TUPLE [STRING], JSON_ARRAY])
-- Initialize with specified name and autocompletion function
do
make_input (n, "")

View File

@@ -10,16 +10,19 @@ class
inherit
WSF_VALUE_CONTROL [BOOLEAN]
rename
make as make_value_control
end
create
make_checkbox
make
feature {NONE} -- Initialization
make_checkbox (n, l, c: STRING)
make (n, l, c: STRING)
-- Initialize with specified control name,
do
make_control (n, "input")
make_value_control (n, "input")
label := l
checked_value := c
end

View File

@@ -10,6 +10,8 @@ class
inherit
WSF_VALUE_CONTROL [LIST [STRING]]
rename
make as make_control
undefine
load_state,
full_state,
@@ -17,13 +19,16 @@ inherit
end
WSF_MULTI_CONTROL [WSF_CHECKBOX_CONTROL]
rename
make as make_multi_control
end
create
make_checkbox_list_control
make
feature {NONE} -- Initializaton
make_checkbox_list_control (n: STRING)
make (n: STRING)
-- Initialize with specified control name
do
make_multi_control (n)

View File

@@ -8,10 +8,13 @@ class
WSF_CODEVIEW_CONTROL
inherit
WSF_TEXTAREA_CONTROL
rename
make_textarea as make_codeview
make as make_codeview
end
create
make_codeview
end

View File

@@ -10,16 +10,19 @@ class
inherit
WSF_VALUE_CONTROL [STRING]
rename
make as make_value_control
end
create
make_input
make
feature {NONE} -- Initialization
make_input (n, v: STRING)
make (n, v: STRING)
-- Initialize with specified name and value
do
make_control (n, "input")
make_value_control (n, "input")
type := "text"
text := v
end

View File

@@ -10,13 +10,16 @@ class
inherit
WSF_INPUT_CONTROL
rename
make as make_input
end
create
make_password
make
feature {NONE} -- Initialization
make_password (n, v: STRING)
make (n, v: STRING)
-- Initialize with specified control name and text
do
make_input (n, v)

View File

@@ -10,16 +10,18 @@ class
inherit
WSF_INPUT_CONTROL
rename
make as make_input
redefine
render
end
create
make_textarea
make
feature {NONE} -- Initialization
make_textarea (n, t: STRING)
make (n, t: STRING)
-- Initialize with specified control name and text to be displayed in this textarea
do
make_input (n, t)