21 lines
463 B
Ada
21 lines
463 B
Ada
with Ada.Text_IO; use Ada.Text_IO;
|
|
|
|
procedure Call_Method is
|
|
|
|
package My_Class is ... -- see above
|
|
package body My_Class is ... -- see above
|
|
|
|
package Other_Class is ... -- see above
|
|
package body Other_Class is ... -- see above
|
|
|
|
Ob1: My_Class.Object; -- our "root" type
|
|
Ob2: Other_Class.Object; -- a type derived from the "root" type
|
|
|
|
begin
|
|
My_Class.Static;
|
|
Ob1.Primitive;
|
|
Ob2.Primitive;
|
|
Ob1.Dynamic;
|
|
Ob2.Dynamic;
|
|
end Call_Method;
|