Вы расширили абстрактный тип, но не реализовали его абстрактные методы.

Добавьте для компиляции это:## Код:
```
PROCEDURE (v : View) Restore (f: Views.Frame; l, t, r, b: INTEGER), EMPTY;
```
Работать в общем случае не будет, но зато скомпилируется. Для правильной работы нужно удалить EMPTY, вставить блок BEGIN END и правильно его заполнить.