Package Name: java.applet.applet

Return to: Package List

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;