From 37da2899f40661e3e9631e497da8dc59b971cbd0 Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 17:07:39 +0000
Subject: 20060303a

---
 appl/charon/paginate.m | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 appl/charon/paginate.m

(limited to 'appl/charon/paginate.m')

diff --git a/appl/charon/paginate.m b/appl/charon/paginate.m
new file mode 100644
index 00000000..ff49429f
--- /dev/null
+++ b/appl/charon/paginate.m
@@ -0,0 +1,16 @@
+Paginate: module {
+	PATH: con "/dis/charon/paginate.dis";
+
+	init: fn(layout: Layout, draw: Draw, display: ref Draw->Display): string;
+
+	Pageset: adt {
+		printer: ref Print->Printer;
+		frame: ref Layout->Frame;
+		pages: list of int;
+	};
+
+	PORTRAIT, LANDSCAPE: con iota;
+
+	paginate: fn(frame: ref Layout->Frame, orient: int, pagenums, cancel: chan of int, result: chan of (string, ref Pageset));
+	printpageset: fn(pages: ref Pageset, pagenums, cancel: chan of int);
+};
-- 
cgit v1.2.3