home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
adav313.zip
/
gnat-3_13p-os2-bin-20010916.zip
/
emx
/
gnat
/
examples
/
ex6_main.adb
< prev
next >
Wrap
Text File
|
2000-07-19
|
462b
|
24 lines
-------------------------------- ex6_main.adb ---------------------------------
with ex6_if;
procedure ex6_main is
use ex6_if;
use ex6_if.A_Class;
use ex6_if.B_Class;
A_Obj : A_Class.A;
B_Obj : B_Class.B;
C_Obj : Ada_Extension.C;
procedure Dispatch (Obj : A_Class.A'Class) is
begin
Overridden (Obj);
Not_Overridden (Obj);
end Dispatch;
begin
Dispatch (A_Obj);
Dispatch (B_Obj);
Dispatch (C_Obj);
end ex6_main;