diff --git a/library/server/wsf_html/form/wsf_form_field_with_numeric_attribute.e b/library/server/wsf_html/form/wsf_form_field_with_numeric_attribute.e
index 1bf122b5..7745ce06 100644
--- a/library/server/wsf_html/form/wsf_form_field_with_numeric_attribute.e
+++ b/library/server/wsf_html/form/wsf_form_field_with_numeric_attribute.e
@@ -17,13 +17,13 @@ inherit
feature -- Access
- min: detachable READABLE_STRING_32
+ min: detachable READABLE_STRING_8
-- minimun value accepted by Current field.
- max: detachable READABLE_STRING_32
+ max: detachable READABLE_STRING_8
-- maximun value accepted by Current field.
- step: detachable READABLE_STRING_32
+ step: detachable READABLE_STRING_8
-- step is the increment that the value should adjust up or down, with the default step value being 1.
feature -- Element Change
@@ -52,28 +52,46 @@ feature -- Element Change
step_set: attached step as l_step implies l_step.same_string (a_val.out)
end
- set_min_string (a_val: READABLE_STRING_32)
+ set_min_string (a_val: READABLE_STRING_GENERAL)
-- Set `min' with `a_val'.
+ require
+ is_valid_number: a_val.is_integer
do
- min := a_val
+ if a_val.is_string_32 then
+ min := html_encoder.encoded_string (a_val.as_string_32)
+ elseif a_val.is_string_8 then
+ min := a_val.as_string_8
+ end
ensure
- min_set: attached min as l_min implies l_min = a_val
+ min_set: attached min as l_min implies l_min.same_string_general (a_val)
end
- set_max_string (a_val: READABLE_STRING_32)
+ set_max_string (a_val: READABLE_STRING_GENERAL)
-- Set `max' with `a_val'.
+ require
+ is_valid_number: a_val.is_integer
do
- max := a_val
+ if a_val.is_string_32 then
+ max := html_encoder.encoded_string (a_val.as_string_32)
+ elseif a_val.is_string_8 then
+ max := a_val.as_string_8
+ end
ensure
- max_set: attached max as l_max implies l_max = a_val
+ max_set: attached max as l_max implies l_max.same_string_general (a_val)
end
- set_step_string (a_val: READABLE_STRING_32)
+ set_step_string (a_val: READABLE_STRING_GENERAL)
-- Set `step' with `a_val'.
- do
- step := a_val
+ require
+ is_valid_sequence: a_val.is_number_sequence or else a_val.is_real_sequence
+ do
+ if a_val.is_string_32 then
+ step := html_encoder.encoded_string (a_val.as_string_32)
+ elseif a_val.is_string_8 then
+ step := a_val.as_string_8
+ end
ensure
- step_set: attached step as l_step implies l_step = a_val
+ step_set: attached step as l_step implies l_step.same_string_general (a_val)
end
@@ -85,21 +103,21 @@ feature {NONE} -- Conversion
--min
if attached min as l_min then
a_target.append (" min=%"")
- a_target.append (html_encoder.encoded_string (l_min))
+ a_target.append(l_min)
a_target.append_character ('%"')
end
--max
if attached max as l_max then
a_target.append (" max=%"")
- a_target.append (html_encoder.encoded_string (l_max))
+ a_target.append (l_max)
a_target.append_character ('%"')
end
--step
if attached step as l_step then
a_target.append (" step=%"")
- a_target.append (html_encoder.encoded_string (l_step))
+ a_target.append (l_step)
a_target.append_character ('%"')
end
end
diff --git a/library/server/wsf_html/form/wsf_form_input_with_html5.e b/library/server/wsf_html/form/wsf_form_input_with_html5.e
index 94e11fa2..b9c38b7d 100644
--- a/library/server/wsf_html/form/wsf_form_input_with_html5.e
+++ b/library/server/wsf_html/form/wsf_form_input_with_html5.e
@@ -60,7 +60,7 @@ feature -- Change element
end
disable_autocomplete
- -- Turn off the autocompelte. The default behavior is on.
+ -- Turn off the autocomplete. The default behavior is on.
do
autocomplete := True
ensure
diff --git a/library/server/wsf_html/form/wsf_form_month_input.e b/library/server/wsf_html/form/wsf_form_month_input.e
index 85dc04d1..3fe9b0f9 100644
--- a/library/server/wsf_html/form/wsf_form_month_input.e
+++ b/library/server/wsf_html/form/wsf_form_month_input.e
@@ -1,5 +1,9 @@
note
- description: "Summary description for {WSF_FORM_MONTH_INPUT}."
+ description: "[
+ Represent an input type Month
+ Example:
+
+ ]"
date: "$Date$"
revision: "$Revision$"
EIS: "name=month", "src=https://html.spec.whatwg.org/multipage/forms.html#month-state-(type=month)"