49 lines
645 B
Plaintext
49 lines
645 B
Plaintext
note
|
|
description: "Summary description for {WSF_FORM_CONTROL}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
WSF_FORM_CONTROL
|
|
|
|
inherit
|
|
|
|
WSF_MULTI_CONTROL [WSF_CONTROL]
|
|
|
|
WSF_VALIDATABLE
|
|
|
|
create
|
|
make_form_control
|
|
|
|
feature {NONE}
|
|
|
|
make_form_control (n: STRING)
|
|
do
|
|
make_multi_control (n)
|
|
tag_name := "form"
|
|
end
|
|
|
|
feature -- Validation
|
|
|
|
validate
|
|
do
|
|
is_valid := True
|
|
across
|
|
controls as c
|
|
until
|
|
is_valid = False
|
|
loop
|
|
if attached {WSF_VALIDATABLE} c.item as elem then
|
|
elem.validate
|
|
if not elem.is_valid then
|
|
is_valid := False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
is_valid: BOOLEAN
|
|
|
|
end
|