1. -- 
  2. -- Copyright (c) 2012 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. package Scrollables is 
  10.  
  11.     pragma Preelaborate; 
  12.  
  13.     -- An interface for scrollable widgets. A widget implementing this interface 
  14.     -- declares that its viewport can be scrolled if it does not display the 
  15.     -- widget's entire content region. 
  16.     type Scrollable is limited interface; 
  17.     type A_Scrollable is access all Scrollable'Class; 
  18.  
  19.     -- Returns the widget's increment for scrolling in the X direction. 
  20.     function Get_Scroll_Inc_X( this : access Scrollable ) return Integer is abstract; 
  21.  
  22.     -- Returns the widget's increment for scrollign in the Y direction. 
  23.     function Get_Scroll_Inc_Y( this : access Scrollable ) return Integer is abstract; 
  24.  
  25. end Scrollables;