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
: in String);

function  Name    
(
Self
: in     Window)
return String;

procedure enable 
(
Self
: in out Window);

procedure freshen 
(
Self
: in out Window;
time_Step
: in     globe_3d.Real;
Extras
: in     globe_3d.Visual_array := globe_3d.null_Visuals);

function is_Closed 
(
Self
: in Window)
return Boolean;

procedure add 
(
Self
: in out Window;
the_Object
: in globe_3d.p_Visual);

procedure rid 
(
Self
: in out Window;
the_Object
: in globe_3d.p_Visual);

function  object_Count 
(
Self
: in Window)
return Natural;

function  Smoothing    
(
Self
: in     Window)
return Smoothing_method;

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

function  show_Status 
(
Self
: in     Window)
return Boolean;

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

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

function Frames_per_second 
(
Self
: in Window)
return Float;

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

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