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 Mouse is 
  10.  
  11.     pragma Pure; 
  12.  
  13.     -- Represents the buttons on a three-button mouse. 
  14.     type Mouse_Button is (Mouse_Left, Mouse_Right, Mouse_Middle); 
  15.  
  16.     -- Returns Mouse_Button 'mb' as a string: "Left", "Right", or "Middle". 
  17.     function To_String( mb : Mouse_Button ) return String; 
  18.  
  19. end Mouse;