Package Name: java.awt.gridbaglayout

Return to: Package List

with java.lang; use java.lang;
with java.awt.Component; use java.awt.Component;
with java.lang.String; use java.lang.String;
with java.awt.GridBagConstraints; use java.awt.GridBagConstraints;
with java.awt.LayoutManager; use java.awt.LayoutManager;
with java.awt.Container; use java.awt.Container;
with java.awt.Dimension; use java.awt.Dimension;
with java.awt.Point; use java.awt.Point;

package java.awt.GridBagLayout is
    type Dimension_Array is array(Positive range <>) of Integer;
    type Dimension_Array_Ptr is access all Dimension_Array(1..128);

      -- TBD should be unconstrained
    type Weight_Array is array(Positive range <>) of Long_Float;
    type Weight_Array_Ptr is access all Dimension_Array(1..128);

      -- TBD should be unconstrained
    type GridBagLayout_Obj is new Object with record

        LayoutManager : aliased LayoutManager_Obj;  -- implements LayoutManager
        columnWidths : Dimension_Array_Ptr;
        rowHeights : Dimension_Array_Ptr;
        columnWeights : Weight_Array_Ptr;
        rowWeights : Weight_Array_Ptr;
    end record;

    type GridBagLayout_Ptr is access all GridBagLayout_Obj'Class;
    procedure init_GridBagLayout(Obj : access GridBagLayout_Obj'Class);

    function new_GridBagLayout(Obj : GridBagLayout_Ptr := null) return GridBagLayout_Ptr;
    procedure setConstraints(Obj : access GridBagLayout_Obj;
        comp : Component_Ptr;

        constraints : GridBagConstraints_Ptr);
    function getConstraints(Obj : access GridBagLayout_Obj;
        comp : Component_Ptr)

      return GridBagConstraints_Ptr;

    function getLayoutOrigin(Obj : access GridBagLayout_Obj) return Point_Ptr;
    type Which_Dimension is (columns, rows);

    type LayoutDimensions is array(Which_Dimension) of Dimension_Array_Ptr;
    function getLayoutDimensions(Obj : access GridBagLayout_Obj) 

      return LayoutDimensions;

    type LayoutWeights is array(Which_Dimension) of Weight_Array_Ptr;
    function getLayoutWeights(Obj : access GridBagLayout_Obj) 

      return LayoutWeights;
    function location(Obj : access GridBagLayout_Obj;
        x : Integer;
        y : Integer)

      return Point_Ptr;
    procedure addLayoutComponent(Obj : access GridBagLayout_Obj;
        name : String_Ptr;

        comp : Component_Ptr);
    procedure removeLayoutComponent(Obj : access GridBagLayout_Obj;

        comp : Component_Ptr);
    function preferredLayoutSize(Obj : access GridBagLayout_Obj;
        parent : Container_Ptr)

      return Dimension_Ptr;
    function minimumLayoutSize(Obj : access GridBagLayout_Obj;
        parent : Container_Ptr)

      return Dimension_Ptr;
    procedure layoutContainer(Obj : access GridBagLayout_Obj;

        parent : Container_Ptr);

    function toString(Obj : access GridBagLayout_Obj) return String_Ptr;
    pragma Import(Java, removeLayoutComponent);
    pragma Import(Java, layoutContainer);
    pragma Import(Java, getLayoutDimensions);
    pragma Import(Java, setConstraints);
    pragma Import(Java, preferredLayoutSize);
    pragma Import(Java, minimumLayoutSize);
    pragma Import(Java, location);
    pragma Import(Java, getLayoutOrigin);
    pragma Import(Java, getLayoutWeights);
    pragma Import(Java, toString);
    pragma Import(Java, addLayoutComponent);

    pragma Import(Java, getConstraints);
    pragma Import(Java_Constructor, init_GridBagLayout);

    pragma Import(Java_Constructor, new_GridBagLayout);
end java.awt.GridBagLayout;