1. pragma Warnings (Off); 
  2. pragma Style_Checks (Off); 
  3.  
  4. package body GLOBE_3D.Culler is 
  5.  
  6.    procedure Viewer_is (Self  : in out Culler'Class;   Now  : p_Window) 
  7.    is 
  8.    begin 
  9.       self.Viewer := Now.all'Access; 
  10.    end; 
  11.  
  12.    function Viewer (Self  : in     Culler'Class) return p_Window 
  13.    is 
  14.    begin 
  15.       return self.Viewer; 
  16.    end; 
  17.  
  18. end globe_3d.Culler;