1 with overriding_ops_p
; use overriding_ops_p
;
2 package overriding_ops
is
3 task type Light_Programmer
is new Device
with
4 overriding
entry Set_Name
(Name
: Name_Type
);
6 -- Object that represents a light
7 protected type Light
is new Device
with
8 overriding
procedure Set_Name
(Name
: Name_Type
);