package GLUT.Windows is

type Window is new GLOBE_3D.Window with private;

type Window_view is access all Window'Class;

type Smoothing_method is (None, Software, Hardware);

type natural_Array is array (Positive range 1 .. 123) of Natural;

no_such_Object  : exception;

procedure Initialize;

procedure Define  
(
Self
: in out Window);

procedure Destroy 
(
Self
: in out Window);

procedure Name_is 
(
Self
: in out Window;
Now
: String);

function  Name    
(
Self
:        Window) return String;

overriding procedure Enable 
(
Self
: in out Window);

overriding procedure Freshen 
(
Self
: in out Window;
time_Step
:        GLOBE_3D.Real;
Extras
:        GLOBE_3D.Visual_array := GLOBE_3D.null_Visuals);

function is_Closed 
(
Self
: Window) return Boolean;

procedure Add 
(
Self
: in out Window;
the_Object
: GLOBE_3D.p_Visual);

procedure Rid 
(
Self
: in out Window;
the_Object
: GLOBE_3D.p_Visual);

function  object_Count 
(
Self
: Window) return Natural;

function  Smoothing    
(
Self
:        Window)                             return Smoothing_method;

procedure Smoothing_is 
(
Self
: in out Window;
Now
: Smoothing_method);

function  Show_Status 
(
Self
:        Window) return Boolean;

procedure Show_Status 
(
Self
: in out Window;
Show
:        Boolean := True);

procedure Display_status 
(
Self
: in out Window;
sec
:        GLOBE_3D.Real);

function Frames_per_second 
(
Self
: Window) return Float;

function Keyboard 
(
Self
: access Window'Class) return Devices.p_Keyboard;

function Mouse    
(
Self
: access Window'Class) return Devices.p_Mouse;