46 lines
725 B
Plaintext
46 lines
725 B
Plaintext
note
|
|
description: "Objects that ..."
|
|
author: ""
|
|
date: "$Date: 2012-03-16 14:05:07 -0400 (Fri, 16 Mar 2012) $"
|
|
revision: "$Revision: 7 $"
|
|
|
|
class
|
|
|
|
CHECK_BOX_FIELD
|
|
|
|
inherit
|
|
|
|
FIELD
|
|
redefine
|
|
Type,
|
|
is_valid
|
|
end
|
|
|
|
create
|
|
default_create
|
|
|
|
feature -- Access
|
|
|
|
Type: BOOLEAN_REF
|
|
-- Implementation (and anchor) of `value'.
|
|
-- Redefined to change type.
|
|
once
|
|
create Result
|
|
end
|
|
|
|
as_type (a_string: STRING): BOOLEAN
|
|
-- Convert `a_string' to an object of `Type'.
|
|
do
|
|
Result := a_string.same_string (("True").to_upper)
|
|
end
|
|
|
|
feature -- Transformation
|
|
|
|
as_widget: CHECK_BOX_CONTROL
|
|
-- Create a control from this field
|
|
do
|
|
create Result.make_from_field (Current)
|
|
end
|
|
|
|
end -- class CHECK_BOX_FIELD
|