Переопределение класса - вопрос

Андрей 21.11.2005 01:37

имеется родительский класс, в котором процедура @procedure вызывает другую процедуру @sub[]

@CLASS
parent

@procedure[]
... ^sub[] ...

@sub[]
старая процедура


делаем дочерный класс и переопределяем @sub[]

@CLASS
child
@BASE
parent
@USE
.../parent.p
@sub[]
новая процедура


Где-нибудь создаем объект класса дочернего класса child и вызываем процедуру procedure:

^child:procedure[]

Вместо того, чтобы вызвать новую (переопределенную) процедуру @sub[] вызывается старая процедура из родительского класса.

Как сделать так, чтобы вызывалась новая (переопределенная) процедура из дочернего класса?

Прошу прощения, если чего-то не понимаю

P.S. способ нашел, но не оставляет впечатление, что что-то я делаю не так

---