code: purgatorio

ref: 94443daf8e248e65afc8d3f17f26efea22748b51
dir: /appl/charon/layout.m/

View raw version
Layout: module
{
PATH: con "/dis/charon/layout.dis";

ReliefBd: con 2;
ReliefSunk, ReliefRaised : con iota;

# Frames

Frame: adt
{
	id: int;					# unique id
	doc: ref Build->Docinfo;		# various global attributes from HTML and headers
	src: ref Url->Parsedurl;
	name: string;				# current name (assigned by parent frame, or by default)
	marginw: int;				# margin on sides
	marginh: int;				# margin on top and bottom
	framebd: int;				# frame border desired
	flags: int;					# Build->FRnoresize, etc.
	layout: ref Lay;				# representation of layout
	sublays: array of ref Lay;		# table cells, captions
	sublayid: int;				# next sublayid to use
	controls: cyclic array of ref Control;	# controls
	controlid: int;				# next control id to use
	cim: ref Draw->Image;		# image where we draw contents
	r: Draw->Rect;				# part of cimage.r for this frame (including scrollbars)
	cr: Draw->Rect;			# part of r for contents (excluding scrollbars, including margins)
	totalr: Draw->Rect;			# total rectangle for page -- (0,0) is top left
	viewr: Draw->Rect;			# view: subrect of totalr currently on screen
	vscr: cyclic ref Control;		# vertical scrollbar
	hscr: cyclic ref Control;		# horizontal scrollbar
	parent: cyclic ref Frame;		# if this frame is in a frameset
	kids: cyclic list of ref Frame;	# if this frame is a frameset
	animpid: int;				# image animating thread
	prctxt: ref Printcontext;		# nil if not printing

# TEMP
dirtyr: Draw->Rect;
dirty: fn (f: self ref Frame, r: Draw->Rect);
isdirty: int;

	# reset() clears everything but parent, cim and r
	# new() and newkid() call reset
	# newkid() fills in name, etc., from ki, and copies cim from parent
	new: fn() : ref Frame;
	newkid: fn(parent: ref Frame, ki: ref Build->Kidinfo, r: Draw->Rect) : ref Frame;
	reset: fn(f: self ref Frame);
	addcontrol: fn(f: self ref Frame, c: ref Control) : int;
	lptosp: fn(f: self ref Frame, lp: Draw->Point) : Draw->Point;
	sptolp: fn(f: self ref Frame, sp: Draw->Point) : Draw->Point;
	xscroll: fn(f: self ref Frame, kind, val: int); # kind is CAscrollpage, etc
	yscroll: fn(f: self ref Frame, kind, val: int);
	scrollabs: fn(f : self ref Frame, p : Draw->Point);
	scrollrel: fn(f : self ref Frame, p : Draw->Point);
	find: fn(f: self ref Frame, p: Draw->Point, it: ref Build->Item) : ref Loc;
	swapimage: fn(f: self ref Frame, it: ref Build->Item.Iimage, src: string);
	focus: fn(f : self ref Frame, focus, raisex : int);
};

Printcontext: adt {
	mask: ref Draw->Image;
	endy: int;
};

# Line flags
Ldrawn, Lmoved, Lchanged: con byte (1<<iota);

# Layout engine organizes Items into Lines
Line: adt
{
	items: ref Build->Item;
	next: cyclic ref Line;
	prev: cyclic ref Line;
	pos: Draw->Point;
	width: int;
	height: int;
	ascent: int;
	flags: byte;

	new: fn() : ref Line;
};

# A place where an item, or a where mouse or keyboard focus could be.
Loc: adt
{
	le:		array of Locelem;
	n:		int;					# locs[0:n] form access path
	pos:		Draw->Point;				# offset in final item

	new:		fn() : ref Loc;
	add:		fn(loc: self ref Loc, kind: int, pos: Draw->Point);
	lastframe:	fn(loc: self ref Loc) : ref Frame;
	print:	fn(loc: self ref Loc, msg: string);
};

# Don't use pick so that can make array of Locelems (rather than ref Locelems),
# which saves a lot of alloc/frees in search functions.
# (Also, saves memory overall, in Limbo).
Locelem: adt
{
	kind:	int;				# LEframe, etc.
	pos: Draw->Point;			# position in screen coords of this element
	frame: ref Frame;		# root, or kid of previous (a frame)
	line: ref Line;			# a line in lay of previous
	item: ref Build->Item;		# an item in previous (a line or item)
	tcell: ref Build->Tablecell;	# a cell in previous (a table item)
	control: ref Control;		# a control in previous item, or scrollbar in previous frame
};

# Locelem kinds
LEframe, LEline, LEitem, LEtablecell, LEcontrol : con iota;

# One of the possible controls, and possible associated form field
Control: adt {
	f: cyclic ref Frame;
	ff: ref Build->Formfield;
	r: Draw->Rect;			# coords in f.cim coord system
	flags:	int;
	popup:	ref Gui->Popup;
	pick {
		Cbutton =>
			pic:		ref Draw->Image;		# picture on button (if no label)
			picmask:	ref Draw->Image;		# mask for pic
			dpic:	ref Draw->Image;		# disabled ("greyed out") pic
			dpicmask:	ref Draw->Image;	# mask for dpic
			label:	string;		# label on button (if no pic), or else flyover hint
			dorelief:	int;			# draw background & relief?
		Centry =>
			scr:		ref Control;
			s:		string;		# current contents
			sel:		(int,int);	# range of characters in s that are selected
			left:		int;			# index of character in s that is at left of window
			linewrap:	int;			# true if supposed to line-wrap
			onchange:	int;		# true if want onchange event
		Ccheckbox=>
			isradio: 	int;			# true if for radio button
		Cselect =>
			#
			owner:	ref Control;	# if this is a popup
			scr:		ref Control;	# if needed
			nvis:		int;			# number of visible options
			first:		int;			# index of current top visible option
			options:	array of Build->Option;
#			onchange:	int;		# true if want onchange event
		Clistbox =>
			hscr:		ref Control;
			vscr:		ref Control;
			nvis:		int;
			first:		int;			# index of current top visible option
			start:		int;			# index of current start column
			maxcol:		int;			# max column
			options:	array of Build->Option;
			grab:		cyclic ref Control;
		Cscrollbar =>
			top:		int;			# pixels in trough above/left of slider
			bot:		int;			# pixels in trough below/right of slider
			mindelta:	int;			# need delta of at least this (pixels)
			deltaval: int;
			ctl:		cyclic ref Control;	# if non-nil, scrolls this control
			holdstate: (int, int);
		Canimimage =>
			cim:		ref CharonUtils->CImage;
			cur:		int;				# current frame
			redraw:	int;				# need to redraw all?
			ts:		big;				# timestamp of current frame
			bg:		Build->Background;	# if need restore-to-background
		Clabel =>
			s:		string;
	}

	newff: fn(f: ref Frame, ff: ref Build->Formfield) : ref Control;
	newscroll: fn(f: ref Frame, isvert, length, breadth: int) : ref Control;
	newentry: fn(f: ref Frame, nh, nv, linewrap: int) : ref Control;
	newbutton: fn(f: ref Frame, pic, picmask: ref Draw->Image, lab: string, it: ref Build->Item.Iimage, candisable, dorelief: int) : ref Control;
	newcheckbox: fn(f: ref Frame, isradio: int) : ref Control;
	newselect: fn(f: ref Frame, nvis: int, options: array of Build->Option) : ref Control;
	newlistbox: fn(f: ref Frame, nvis, w: int, options: array of Build->Option) : ref Control;
	newanimimage: fn(f: ref Frame, cim: ref CharonUtils->CImage, bg: Build->Background) : ref Control;
	newlabel: fn(f: ref Frame, s: string) : ref Control;
	disable: fn(b: self ref Control);
	enable: fn(b: self ref Control);
	losefocus: fn(b: self ref Control, raisex: int);
	gainfocus: fn(b: self ref Control, raisex: int);
	scrollset: fn(sc: self ref Control, v1, v2, vmax, nsteps, draw: int);
	entryset: fn(e: self ref Control, s: string);
	# returns CAnone, etc.
	dokey: fn(c: self ref Control, keychar: int) : int;
	# domouse returns (action, grab) action = CAnone etc, grab = control that has grabbed mouse
	domouse: fn(c: self ref Control, p: Draw->Point, mtype: int, oldgrab : ref Control) : (int, ref Control);
	dopopup: fn(c: self ref Control): ref Control;
	donepopup: fn(c: self ref Control): ref Control;
	reset: fn(c: self ref Control);
	draw: fn(c: self ref Control, flush: int);
};

# Control flags
CFactive, CFenabled, CFsecure, CFhasfocus, CFscrvert, CFscracta1, CFscracta2, CFscracttr1, CFscracttr2: con (1<<iota);
CFscrallact : con (CFactive|CFscracta1|CFscracta2|CFscracttr1|CFscracttr2);

# Control Actions
CAnone, CAscrollpage, CAscrollline, CAscrolldelta, CAscrollabs,
CAbuttonpush, CAflyover, CAreturnkey, CAtabkey, CAkeyfocus, CAselected, CAchanged, CAdopopup, CAdonepopup: con iota;

# Result of layout
Lay: adt
{
	start: ref Line;			# fake before-the-first-line
	end: ref Line;			# fake after-the-last-line
	targetwidth: int;		# target width
	width: int;				# actual width
	height: int;			# actual height
	margin: int;			# extra space on all four sides
	floats:list of ref Build->Item.Ifloat;	# floats, from bottom up
	background: Build->Background;	# background for layout
	just: byte;				# default line justification
	flags: byte;			# Lchanged

	new: fn(targetwidth: int, just: byte, margin: int, bg: Build->Background) : ref Lay;
};

#B: Build;

init: fn(cu: CharonUtils);
layout: fn(f: ref Frame, bs: ref CharonUtils->ByteSource, linkclick: int) : array of byte;

drawrelief: fn(im: ref Draw->Image, r: Draw->Rect, style: int);
drawborder: fn(im: ref Draw->Image, r: Draw->Rect, n, color: int);
drawfill: fn(im: ref Draw->Image, r: Draw->Rect, color: int);
drawstring: fn(im: ref Draw->Image, p: Draw->Point, s: string);
measurestring: fn(s: string) : Draw->Point;
drawall: fn(f: ref Frame);
relayout: fn(f: ref Frame, l: ref Lay, targetw: int, just: byte);

stringwidth: fn(s: string): int;
};