:- module intermod_type2.

:- interface.

:- type win.

:- type wopt
	--->	border
	;	title(string)
	.

:- implementation.

%------------------------------------------------------------------------------%

:- import_module array, char, int, list, require, std_util, store, string.

:- type my_store_type ---> my_store_type.

:- type curse	== store(my_store_type).

:- type win == store_mutvar(window, my_store_type).

:- type window
	--->	win(
			win,		% parent
			int,		% width
			int,		% height
			list(wopt),
			array(char),	% contents
			list(child),	% visible
			list(child)	% hidden
		).

:- type child
	--->	child(
			int,		% x
			int,		% y
			win
		).

:- type cursor
	--->	cursor(int, int).

%------------------------------------------------------------------------------%

