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);