type Scrollable is limited interface;
type A_Scrollable is access all Scrollable'Class;
function Get_Scroll_Inc_X
( | this | : access Scrollable ) return Integer is abstract; |
function Get_Scroll_Inc_Y
( | this | : access Scrollable ) return Integer is abstract; |