shithub: purgatorio

ref: 9f76a7f6819ac04552b4fb6588156f3e4089d1d7
dir: /module/prefab.m/

Prefab: module
{
	PATH:	con	"$Prefab";

	# types of Elements
	EIcon:		con 0;
	EText:		con 1;
	ETitle:		con 2;
	EHorizontal:	con 3;
	EVertical:	con 4;
	ESeparator:	con 5;

	# first arg to Element.adjust: size of elements
	Adjpack:	con 10;	# leave alone, pack tightly
	Adjequal:	con 11;	# make equal
	Adjfill:	con 12;	# make equal, filling available space

	# second arg: position of element within space
	Adjleft:	con 20;
	Adjup:		con 20;
	Adjcenter:	con 21;
	Adjright:	con 22;
	Adjdown:	con 22;

	# default fonts and colors for objects
	Style: adt
	{
		titlefont:	ref Draw->Font;
		textfont:	ref Draw->Font;
		elemcolor:	ref Draw->Image;
		edgecolor:	ref Draw->Image;
		titlecolor:	ref Draw->Image;
		textcolor:	ref Draw->Image;
		highlightcolor:	ref Draw->Image;
	};

	# drawing environment for objects
	Environ: adt
	{
		screen:	ref Draw->Screen;
		style:	ref Style;
	};

	# operand for layout operators; set either (font, color, text) or (icon, mask)
	Layout: adt
	{
		font:		ref Draw->Font;
		color:		ref Draw->Image;
		text:		string;
		icon:		ref Draw->Image;
		mask:		ref Draw->Image;
		tag:		string;
	};

	# graphical objects in the interface, recursively defined for making lists
	Element: adt
	{
		# part of Ell elements
		kind:		int;			# type: EIcon, EText, etc.
		r:		Draw->Rect;		# rectangle on screen
		environ:	ref Environ;		# graphics screen, style
		tag:		string;			# identifier for selection

		# different fields defined for different kinds of Elements
		kids:		list of ref Element;	# children of EHorizontal, EVertical
		str:		string;			# text in an EText element
		mask:		ref Draw->Image;	# part of Eicon, ESeparator
		image:		ref Draw->Image;	# part of Eicon, ESeparator, EText, Etitle
		font:		ref Draw->Font;		# part of EText, Etitle

		# constructors
		icon:		fn(env: ref Environ, r: Draw->Rect, icon, mask: ref Draw->Image): ref Element;
		text:		fn(env: ref Environ, text: string, r: Draw->Rect, kind: int): ref Element;
		layout:	fn(env: ref Environ, lay: list of Layout, r: Draw->Rect, kind: int): ref Element;
		elist:		fn(env: ref Environ, elem: ref Element, kind: int): ref Element;
		separator:	fn(env: ref Environ, r: Draw->Rect, icon, mask: ref Draw->Image): ref Element;

		# editing and geometry
		append:	fn(elist: self ref Element, elem: ref Element): int;
		adjust:	fn(elem: self ref Element, equal: int, dir: int);
		clip:		fn(elem: self ref Element, r: Draw->Rect);
		scroll:	fn(elem: self ref Element, d: Draw->Point);
		translate:	fn(elem: self ref Element, d: Draw->Point);
		show:	fn(elist: self ref Element, elem: ref Element): int;
	};

	# connects an element to a window for display
	Compound: adt
	{
		image:		ref Draw->Image;	# window on which contents are drawn
		environ:	ref Environ;		# graphics screen, style
		r:		Draw->Rect;		# rectangle on screen
		title:		ref Element;		# above the line (may be nil)
		contents:	ref Element;		# below the line

		# constructors
		iconbox:	fn(env: ref Environ, p: Draw->Point, title: string, icon, mask: ref Draw->Image): ref Compound;
		textbox:	fn(env: ref Environ, r: Draw->Rect, title, text: string): ref Compound;
		layoutbox:fn(env: ref Environ, r: Draw->Rect, title: string, lay: list of Layout): ref Compound;
		box:		fn(env: ref Environ, p: Draw->Point, title, elist: ref Element): ref Compound;

		# display
		draw:	fn(comp: self ref Compound);
		redraw:	fn(comp: self ref Compound, r: Draw->Rect);
		scroll:	fn(comp: self ref Compound, elem: ref Element, d: Draw->Point);
		show:	fn(comp: self ref Compound, elem: ref Element): int;

		# support for using EHorizontal and EVertical as menus
		select:	fn(comp: self ref Compound, elem: ref Element, i: int, c: chan of int): (int, int, ref Element);
		tagselect:	fn(comp: self ref Compound, elem: ref Element, i: int, c: chan of int): (int, int, ref Element);
		highlight:	fn(comp: self ref Compound, elem: ref Element, on: int);
	};
};