sig
type parameter = {
param_name : java'lang'String java_instance;
param_type : java'lang'String java_instance;
param_desc : java'lang'String java_instance;
}
type parameter_info
val parameter_info_of_list :
JavaApplet.parameter list -> JavaApplet.parameter_info
module type AWT =
sig
val applet_info : java'lang'String java_instance
val parameter_info : JavaApplet.parameter_info
val init : java'applet'Applet java_instance -> unit
val start : java'applet'Applet java_instance -> unit
val stop : java'applet'Applet java_instance -> unit
val destroy : java'applet'Applet java_instance -> unit
end
module type Swing =
sig
val applet_info : java'lang'String java_instance
val parameter_info : JavaApplet.parameter_info
val init : javax'swing'JApplet java_instance -> unit
val start : javax'swing'JApplet java_instance -> unit
val stop : javax'swing'JApplet java_instance -> unit
val destroy : javax'swing'JApplet java_instance -> unit
end
type graphics_event = {
mouse_x : int;
mouse_y : int;
button : bool;
keypressed : bool;
key : char;
}
module type Graphics =
sig
val applet_info : java'lang'String java_instance
val parameter_info : JavaApplet.parameter_info
val init : unit -> unit
val start : unit -> unit
val run : JavaApplet.graphics_event -> unit
val stop : unit -> unit
val destroy : unit -> unit
end
end