1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. with GL.IO; use GL.IO; 
  6.  
  7. package body Screenshots is 
  8.  
  9.    Screen_Shot_Count : Positive := 1; 
  10.  
  11.    --------------- 
  12.    -- Take_Shot -- 
  13.    --------------- 
  14.  
  15.    procedure Take_Shot is 
  16.  
  17.    begin 
  18.       Screenshot (Integer'Image (Screen_Shot_Count) & ".bmp"); 
  19.       Screen_Shot_Count := Screen_Shot_Count + 1; 
  20.    end Take_Shot; 
  21.  
  22. end Screenshots;