1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
|
class oklasse1 is a...
property handle hoMyConnectedKlasse2
procedure MethodeInKlasse1 parameter1 parameter2
End_procedure
end_class
class oklasse2 is a...
property handle hoMyConnectedKlasse1
end_class
// Instazierung
object o1 is a klasse1
end_object
object o2 is a klasse2
end_object
set hoMyConnectedKlasse2 of oKlasse1 to oKlasse2
set hoMyConnectedKlasse1 of oKlasse2 to oKlasse1
Methodenaufrufe vom Methoden aus Klasse1 können von der Klasse2 so implementiert werden:
send MethodeInKlasse1 of (hoMyConnectedKlasse1(self)) parameter1 parameter2
|