From 37da2899f40661e3e9631e497da8dc59b971cbd0 Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 17:07:39 +0000 Subject: 20060303a --- appl/ebook/table.m | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 appl/ebook/table.m (limited to 'appl/ebook/table.m') diff --git a/appl/ebook/table.m b/appl/ebook/table.m new file mode 100644 index 00000000..f867b755 --- /dev/null +++ b/appl/ebook/table.m @@ -0,0 +1,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); +}; -- cgit v1.2.3