Всем доброго.
Хочу знать как можно обрабатывать сообщения (события) тех или иных "элементов"
Для начала хочу попробовать обрабатывать сообщения HandleViewMsg.
Почитав пример написал по аналогии такое:
Код:
MODULE wnd;
IMPORT
Views,Ports, Fonts, Stores, Files, Models, Controllers,
Tw:=Windows,Tm:=TextModels,Tv:=TextViews,
l:=StdLog;
TYPE
View= POINTER TO RECORD(Views.View)
END;
VAR
w:Tw.Window; m:Tm.Model; v:Tv.View;
PROCEDURE (ww:View) HandleViewMsg (f: Views.Frame; VAR msg: Views.Message);
BEGIN
l.String("Закрыто");
END HandleViewMsg;
PROCEDURE do*;
BEGIN
m:=Tm.dir.New();
v:=Tv.dir.New(m);
Views.OpenView(v);
END do;
END wnd.
На строке
View= POINTER TO RECORD(Views.View) вылезает ошибка:
unimplement abstract procedure in base types
Что я делаю неправильно?