package Input_Handlers is
type Input_Handler is new Limited_Object with private;
type A_Input_Handler is access all Input_Handler'Class;
function Create_Input_Handler
( | mouseEnabled | : Boolean ) return A_Input_Handler; |
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 ); |