kolibrios-fun/programs/other/fb2reader/SRC/Window.ob07

(*
    Copyright 2016, 2021, 2023 Anton Krotov

    This file is part of fb2read.

    fb2read is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    fb2read is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with fb2read. If not, see <http://www.gnu.org/licenses/>.
*)

MODULE Window;

IMPORT S := Strings;

TYPE

	tRect* = RECORD
		left*, top*, width*, height* : INTEGER
	END;

	tWindow* = RECORD (tRect)
		caption*           : S.STRING;
		created*           : BOOLEAN;
		dWidth*, dHeight*  : INTEGER
	END;


PROCEDURE initRect* (VAR Rect: tRect; left, top, width, height: INTEGER);
BEGIN
	Rect.left   := left;
	Rect.top    := top;
	Rect.width  := width;
	Rect.height := height
END initRect;


PROCEDURE init* (VAR window: tWindow; left, top, width, height: INTEGER; caption: ARRAY OF CHAR);
BEGIN
	initRect(window, left, top, width, height);
	window.created := FALSE;
	window.dWidth  := 0;
	window.dHeight := 0;
	COPY(caption, window.caption)
END init;


END Window.