96 lines
1.2 KiB
Plaintext
96 lines
1.2 KiB
Plaintext
note
|
|
description: "Summary description for {SE_BUTTON}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
SE_BUTTON
|
|
inherit {NONE}
|
|
ENUM
|
|
|
|
|
|
create
|
|
make_left,
|
|
make_middle,
|
|
make_right
|
|
|
|
|
|
feature -- Initialization
|
|
|
|
make_left
|
|
do
|
|
set_left
|
|
end
|
|
|
|
make_middle
|
|
do
|
|
set_middle
|
|
end
|
|
|
|
make_right
|
|
do
|
|
set_right
|
|
end
|
|
|
|
|
|
feature -- Access
|
|
|
|
is_valid_value (a_value: INTEGER): BOOLEAN
|
|
-- Can `a_value' be used in a `set_value' feature call?
|
|
do
|
|
Result := (a_value = left_value) or else
|
|
(a_value = middle_value) or else
|
|
(a_value = right_value)
|
|
end
|
|
|
|
feature -- Element Change
|
|
|
|
set_left
|
|
do
|
|
value := left_value
|
|
end
|
|
|
|
set_middle
|
|
do
|
|
value := middle_value
|
|
end
|
|
|
|
set_right
|
|
do
|
|
value := right_value
|
|
end
|
|
|
|
|
|
feature -- Query
|
|
|
|
is_left : BOOLEAN
|
|
-- is the current value left?
|
|
do
|
|
Result := (value = left_value)
|
|
end
|
|
|
|
is_middle : BOOLEAN
|
|
-- is the current value middle?
|
|
do
|
|
Result := (value = middle_value)
|
|
end
|
|
|
|
|
|
is_right : BOOLEAN
|
|
-- is the current value right?
|
|
do
|
|
Result := (value = right_value)
|
|
end
|
|
|
|
|
|
feature {NONE} -- Implementation
|
|
-- {LEFT = 0, MIDDLE = 1 , RIGHT = 2}
|
|
left_value :INTEGER = 0
|
|
middle_value : INTEGER = 1
|
|
right_value : INTEGER = 2
|
|
end
|
|
|
|
|
|
|