type Input_Handler is new Object with private;
type A_Input_Handler is access all Input_Handler'Class;
procedure Start
( | this | : not null access Input_Handler'Class ); |
procedure Stop
( | this | : not null access Input_Handler'Class ); |
procedure Delete
( | this | : in out A_Input_Handler ); |