summaryrefslogtreecommitdiff
path: root/appl/ebook/table.m
blob: f867b75557b8d16061d9442bac3b43b844c69f76 (plain)
1
2
3
4
5
6
7
8
9
10
11
Table: module {
	PATH: con "/dis/ebook/table.dis";
	Cell: adt {
		w: string;
		span: Draw->Point;
		sizereq: Draw->Point;
	};
	init:	fn();
	newcell:	fn(w: string, span: Draw->Point): ref Cell;
	layout: fn(cells: array of array of ref Cell, win: ref Tk->Toplevel, w: string);
};