OberonCore

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.

PROCEDURE (v : View) Restore (f: Views.Frame; l, t, r, b: INTEGER), EMPTY;