Package Name: java.applet.applet
with java.awt.Panel; use java.awt.Panel;
with java.lang.String; use java.lang.String;
with java.applet.AudioClip; use java.applet.AudioClip;
with java.applet.AppletStub; use java.applet.AppletStub;
with java.applet.AppletContext; use java.applet.AppletContext;
with java.awt.Dimension; use java.awt.Dimension;
with java.net.URL; use java.net.URL;
with java.awt.Image; use java.awt.Image;
package java.applet.Applet is
type Applet_Obj is new Panel_Obj with null record;
type Applet_Ptr is access all Applet_Obj'Class;
procedure setStub(Obj : access Applet_Obj;
stub : AppletStub_Ptr);
function isActive(Obj : access Applet_Obj) return Boolean;
function getDocumentBase(Obj : access Applet_Obj) return URL_Ptr;
function getCodeBase(Obj : access Applet_Obj) return URL_Ptr;
function getParameter(Obj : access Applet_Obj;
name : String_Ptr)
return String_Ptr;
function getAppletContext(Obj : access Applet_Obj) return AppletContext_Ptr;
procedure resize(Obj : access Applet_Obj;
width : Integer;
height : Integer);
procedure resize(Obj : access Applet_Obj;
d : Dimension_Ptr);
procedure showStatus(Obj : access Applet_Obj;
msg : String_Ptr);
function getImage(Obj : access Applet_Obj;
url : URL_Ptr)
return Image_Ptr;
function getImage(Obj : access Applet_Obj;
url : URL_Ptr;
name : String_Ptr)
return Image_Ptr;
function getAudioClip(Obj : access Applet_Obj;
url : URL_Ptr)
return AudioClip_Ptr;
function getAudioClip(Obj : access Applet_Obj;
url : URL_Ptr;
name : String_Ptr)
return AudioClip_Ptr;
function getAppletInfo(Obj : access Applet_Obj) return String_Ptr;
type Param_Info_Enum is (param_name, param_type, param_description);
type Param_Info is array(Param_Info_Enum) of String_Ptr;
type Parameter_Array is array(Positive range <>) of Param_Info;
function getParameterInfo(Obj : access Applet_Obj) return Parameter_Array;
procedure play(Obj : access Applet_Obj;
url : URL_Ptr);
procedure play(Obj : access Applet_Obj;
url : URL_Ptr;
name : String_Ptr);
procedure init(Obj : access Applet_Obj);
procedure start(Obj : access Applet_Obj);
procedure stop(Obj : access Applet_Obj);
procedure destroy(Obj : access Applet_Obj);
procedure init_Applet(Obj : access Applet_Obj'Class);
function new_Applet(Obj : Applet_Ptr := null) return Applet_Ptr;
-- This is an operation of class "AppletContext"; here to avoid circularity
function getApplet(Obj : access AppletContext_Obj;
P1 : String_Ptr)
return Applet_Ptr;
pragma Import(Java, getImage);
pragma Import(Java, destroy);
pragma Import(Java, start);
pragma Import(Java, getParameterInfo);
pragma Import(Java, getDocumentBase);
pragma Import(Java, getAudioClip);
pragma Import(Java, showStatus);
pragma Import(Java, setStub);
pragma Import(Java, getAppletInfo);
pragma Import(Java, init);
pragma Import(Java, isActive);
pragma Import(Java, resize);
pragma Import(Java, stop);
pragma Import(Java, getCodeBase);
pragma Import(Java, getParameter);
pragma Import(Java, play);
pragma Import(Java, getAppletContext);
pragma Import(Java_Constructor, init_Applet);
pragma Import(Java_Constructor, new_Applet);
pragma Import(Java, getApplet, "java/applet/AppletContext.getApplet");
end java.applet.Applet;