43 lines
559 B
Plaintext
43 lines
559 B
Plaintext
class YMD_INTERVAL_FIELD
|
|
-- creates an edit box.
|
|
|
|
inherit
|
|
|
|
FIELD
|
|
redefine
|
|
make
|
|
end
|
|
|
|
create
|
|
make
|
|
|
|
|
|
feature -- Initialization
|
|
|
|
make
|
|
do
|
|
Precursor
|
|
set_height (150)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
data: YMD_INTERVAL
|
|
once
|
|
create Result.make
|
|
end
|
|
|
|
feature -- Transformation
|
|
|
|
as_control (a_parent: WEL_COMPOSITE_WINDOW): JJJ_EDIT_YMD_INTERVAL
|
|
do
|
|
create Result.make (a_parent)
|
|
Result.set_x (x)
|
|
Result.set_y (y)
|
|
Result.set_width (width)
|
|
Result.set_height (height)
|
|
Result.set_data (data)
|
|
end
|
|
|
|
end -- class DMY_INTERVAL_FIELD
|