Package Name: java.awt.choice
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;