Package Name: java.awt.choice

Return to: Package List

with java.awt.Component; use java.awt.Component;
with java.lang.String; use java.lang.String;

package java.awt.Choice is
    type Choice_Obj is new Component_Obj with null record;

    type Choice_Ptr is access all Choice_Obj'Class;
    procedure init_Choice(Obj : access Choice_Obj'Class);

    function new_Choice(Obj : Choice_Ptr := null) return Choice_Ptr;

    procedure addNotify(Obj : access Choice_Obj);

    function countItems(Obj : access Choice_Obj) return Integer;
    function getItem(Obj : access Choice_Obj;
        index : Integer)

      return String_Ptr;
    procedure addItem(Obj : access Choice_Obj;

        item : String_Ptr);

    function getSelectedItem(Obj : access Choice_Obj) return String_Ptr;

    function getSelectedIndex(Obj : access Choice_Obj) return Integer;
    procedure select_op(Obj : access Choice_Obj;

        pos : Integer);
    procedure select_op(Obj : access Choice_Obj;

        str : String_Ptr);
    pragma Import(Java, getSelectedIndex);
    pragma Import(Java, addNotify);
    pragma Import(Java, getItem);
    pragma Import(Java, addItem);
    pragma Import(Java, getSelectedItem);
    pragma Import(Java, select_op, "select");

    pragma Import(Java, countItems);
    pragma Import(Java_Constructor, init_Choice);

    pragma Import(Java_Constructor, new_Choice);
end java.awt.Choice;