20060303a

1 files changed, 16 insertions, 0 deletions

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);
+};