From 37da2899f40661e3e9631e497da8dc59b971cbd0 Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 17:07:39 +0000 Subject: 20060303a --- appl/acme/graph.m | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 appl/acme/graph.m (limited to 'appl/acme/graph.m') diff --git a/appl/acme/graph.m b/appl/acme/graph.m new file mode 100644 index 00000000..147771c2 --- /dev/null +++ b/appl/acme/graph.m @@ -0,0 +1,18 @@ +Graph : module { + PATH : con "/dis/acme/graph.dis"; + + init : fn(mods : ref Dat->Mods); + + balloc : fn(r : Draw->Rect, c : Draw->Chans, col : int) : ref Draw->Image; + draw : fn(d : ref Draw->Image, r : Draw->Rect, s : ref Draw->Image, m : ref Draw->Image, p : Draw->Point); + stringx : fn(d : ref Draw->Image, p : Draw->Point, f : ref Draw->Font, s : string, c : ref Draw->Image); + cursorset: fn(p : Draw->Point); + cursorswitch : fn(c : ref Dat->Cursor); + charwidth : fn(f : ref Draw->Font, c : int) : int; + strwidth : fn(f : ref Draw->Font, p : string) : int; + binit : fn(); + bflush : fn(); + berror : fn(s : string); + + font : ref Draw->Font; +}; \ No newline at end of file -- cgit v1.2.3