?  Oberon10.Scn.Fnt          	                +           Oberon10b.Scn.Fnt  *        1                !        (                    #    -                    H    4                    Q        =    a          MODULE [MODULENAME]; (** AUTHOR ""; PURPOSE ""; *)

IMPORT
	Modules, Commands, Strings,
	WMGraphics, WMRestorable, WMWindowManager,
	[BASEMODULENAME];

TYPE

	Window* = OBJECT ([BASEMODULENAME].Window)

		PROCEDURE &New*(context : WMRestorable.Context);
		BEGIN
			New^(context);
			SetTitle(Strings.NewString(""));
			SetIcon(WMGraphics.LoadImage("", TRUE));

[HANDLERSWIRING]
		END New;

[HANDLERS]
	END Window;

PROCEDURE Open*(context : Commands.Context); (** ~ *)
VAR window : Window;
BEGIN
	NEW(window, NIL);
	WMWindowManager.DefaultAddWindow(window);
END Open;

PROCEDURE Restore*(context : WMRestorable.Context);
VAR window : Window;
BEGIN
	NEW(window, context);
	WMRestorable.AddByContext(window, context);
END Restore;

PROCEDURE Cleanup;
BEGIN
	[BASEMODULENAME].Cleanup;
END Cleanup;

BEGIN
	Modules.InstallTermHandler(Cleanup)
END [MODULENAME].

SystemTools.Free [MODULENAME]~

[MODULENAME].Open ~