Класс-рожатель

AleXp 01.10.2005 18:31 / 01.10.2005 18:32

файл 1.p:

=======================
@CLASS
Class1

@USE
2.p

@BASE
Class2

@init[]
^BASE:init[]
=======================

Файл 2.p:

=======================
@CLASS
Class2

@init[]
$result[Инициализация класса]
=======================

Программа:

=======================
$newC[^Class1:init[]]

1. '^if($newC is Class1){^$newC is Class1}{^$newC is't Class1}'<br>
2. '^if($newC is Class2){^$newC is Class2}{^$newC is't Class2}'<br>
3. '^if($newC is MAIN){^$newC is MAIN}{^$newC is't MAIN}'<br>
=======================

1 и 2 выдает истину. Т.е.: $newC принадлежит и Class1 и Class2. Это нормально?

---