type Input_Handler is new Limited_Object with private;
type A_Input_Handler is access all Input_Handler'Class;
function Create_Input_Handler
( | hertz | : Positive ) return A_Input_Handler; |
procedure Start
( | this | : not null access Input_Handler'Class ); |
procedure Stop
( | this | : not null access Input_Handler'Class ); |