home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BURKS 2
/
BURKS_AUG97.ISO
/
BURKS
/
LANGUAGE
/
ADA
/
LOVELACE
/
hello.ada
< prev
next >
Wrap
Text File
|
1996-10-01
|
556b
|
19 lines
-- A "hello world" applet by Tucker Taft:
with java.applet.Applet; use java.applet.Applet;
with java.awt.Graphics; use java.awt.Graphics;
package Hello is
type Hello_Obj is new Applet_Obj with null record;
procedure paint(Obj : access Hello_Obj; g : Graphics_Ptr);
end Hello;
with interfaces.Java; use interfaces.Java; -- for "+" on strings
package body Hello is
procedure paint(Obj : access Hello_Obj; g : Graphics_Ptr) is
begin
drawString(g, +"Hello, Java world!", x => 10, y => size(Obj).height/2);
end paint;
end Hello;