with

    FLTK.Images.RGB;

private with

    Interfaces.C;


package FLTK.Widgets.Groups.Windows is


    type Window is new Group with private;

    type Window_Reference (Data : not null access Window'Class) is limited null record
        with Implicit_Dereference => Data;

    type Border_State is (None, Visible);

    type Modal_State is (Normal, Non_Modal, Modal);

    type Cursor is
           (Default, Arrow, Crosshair, Wait,
            Insert, Hand, Help, Move,
            NS, WE, NWSE, NESW,
            N, NE, E, SE, S, SW, W, NW,
            None);




    package Forge is

        function Create
               (X, Y, W, H : in Integer;
                Text       : in String)
            return Window;

        function Create
               (W, H : in Integer;
                Text : in String)
            return Window;

    end Forge;




    procedure Show
           (This : in out Window);

    procedure Hide
           (This : in out Window);

    function Is_Shown
           (This : in Window)
        return Boolean;

    procedure Wait_For_Expose
           (This : in out Window);

    procedure Iconify
           (This : in out Window);

    procedure Make_Current
           (This : in out Window);

    function Last_Made_Current
        return access Window'Class;

    procedure Free_Position
           (This : in out Window);




    function Is_Fullscreen
           (This : in Window)
        return Boolean;

    procedure Fullscreen_On
           (This : in out Window);

    procedure Fullscreen_Off
           (This : in out Window);

    procedure Fullscreen_Off
           (This       : in out Window;
            X, Y, W, H : in     Integer);

    procedure Fullscreen_Screens
           (This                     : in out Window;
            Top, Bottom, Left, Right : in     Natural);




    procedure Set_Icon
           (This : in out Window;
            Pic  : in out FLTK.Images.RGB.RGB_Image'Class);

    procedure Set_Default_Icon
           (Pic : in out FLTK.Images.RGB.RGB_Image'Class);

    function Get_Icon_Label
           (This : in Window)
        return String;

    procedure Set_Icon_Label
           (This : in out Window;
            To   : in     String);

    procedure Set_Cursor
           (This : in out Window;
            To   : in     Cursor);

    procedure Set_Cursor
           (This         : in out Window;
            Pic          : in out FLTK.Images.RGB.RGB_Image'Class;
            Hot_X, Hot_Y : in     Integer);

    procedure Set_Default_Cursor
           (This : in out Window;
            To   : in     Cursor);




    function Get_Border_State
           (This : in Window)
        return Border_State;

    procedure Set_Border_State
           (This : in out Window;
            To   : in     Border_State);

    function Is_Override
           (This : in Window)
        return Boolean;

    procedure Set_Override
           (This : in out Window);

    function Get_Modal_State
           (This : in Window)
        return Modal_State;

    procedure Set_Modal_State
           (This : in out Window;
            To   : in     Modal_State);




    function Get_Label
           (This : in Window)
        return String;

    procedure Set_Label
           (This : in out Window;
            Text : in     String);

    procedure Hotspot
           (This      : in out Window;
            X, Y      : in     Integer;
            Offscreen : in     Boolean := False);

    procedure Hotspot
           (This      : in out Window;
            Item      : in     Widget'Class;
            Offscreen : in     Boolean := False);

    procedure Set_Size_Range
           (This                           : in out Window;
            Min_W, Min_H                   : in     Integer;
            Max_W, Max_H, Incre_W, Incre_H : in     Integer := 0;
            Keep_Aspect                    : in     Boolean := False);

    procedure Shape
           (This : in out Window;
            Pic  : in out FLTK.Images.Image'Class);




    function Get_X_Root
           (This : in Window)
        return Integer;

    function Get_Y_Root
           (This : in Window)
        return Integer;

    function Get_Decorated_W
           (This : in Window)
        return Integer;

    function Get_Decorated_H
           (This : in Window)
        return Integer;




    procedure Draw
           (This : in out Window);

    function Handle
           (This  : in out Window;
            Event : in     Event_Kind)
        return Event_Outcome;


private


    type Window is new Group with null record;

    overriding procedure Finalize
           (This : in out Window);




    pragma Inline (Show);
    pragma Inline (Hide);
    pragma Inline (Is_Shown);
    pragma Inline (Wait_For_Expose);
    pragma Inline (Iconify);
    pragma Inline (Make_Current);
    pragma Inline (Last_Made_Current);
    pragma Inline (Free_Position);


    pragma Inline (Is_Fullscreen);
    pragma Inline (Fullscreen_On);
    pragma Inline (Fullscreen_Off);
    pragma Inline (Fullscreen_Screens);


    pragma Inline (Set_Icon);
    pragma Inline (Set_Default_Icon);
    pragma Inline (Get_Icon_Label);
    pragma Inline (Set_Icon_Label);
    pragma Inline (Set_Cursor);
    pragma Inline (Set_Default_Cursor);


    pragma Inline (Get_Border_State);
    pragma Inline (Set_Border_State);
    pragma Inline (Is_Override);
    pragma Inline (Set_Override);
    pragma Inline (Get_Modal_State);
    pragma Inline (Set_Modal_State);


    pragma Inline (Get_Label);
    pragma Inline (Set_Label);
    pragma Inline (Hotspot);
    pragma Inline (Set_Size_Range);
    pragma Inline (Shape);


    pragma Inline (Get_X_Root);
    pragma Inline (Get_Y_Root);
    pragma Inline (Get_Decorated_W);
    pragma Inline (Get_Decorated_H);


    pragma Inline (Draw);
    pragma Inline (Handle);




    --  What delightful magic numbers FLTK cursors are!
    --  (These correspond to the enum found in Enumerations.H)
    Cursor_Values : array (Cursor) of Interfaces.C.int :=
           (Default   => 0,
            Arrow     => 35,
            Crosshair => 66,
            Wait      => 76,
            Insert    => 77,
            Hand      => 31,
            Help      => 47,
            Move      => 27,
            NS        => 78,
            WE        => 79,
            NWSE      => 80,
            NESW      => 81,
            N         => 70,
            NE        => 69,
            E         => 49,
            SE        => 8,
            S         => 9,
            SW        => 7,
            W         => 36,
            NW        => 68,
            None      => 255);




    Last_Current : access Window'Class := null;


end FLTK.Widgets.Groups.Windows;