From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 20:52:35 +0000
Subject: 20060303-partial

---
 module/dividers.m | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 module/dividers.m

(limited to 'module/dividers.m')

diff --git a/module/dividers.m b/module/dividers.m
new file mode 100644
index 00000000..f14a6405
--- /dev/null
+++ b/module/dividers.m
@@ -0,0 +1,33 @@
+Dividers: module {
+	init: fn();
+	Divider: adt {
+		new: fn(win: ref Tk->Toplevel, w: string, wl: list of string, dir: int): (ref Divider, chan of string);
+		event: fn(d: self ref Divider, e: string);
+
+		# private from here.
+		win: ref Tk->Toplevel;
+		w: string;
+		state: ref DState;
+		
+		dir: int;			# NS or EW
+		widgets: array of ref DWidget;
+		canvsize: Draw->Point;
+	};
+
+	EW, NS: con iota;
+	PATH: con "/dis/lib/dividers.dis";
+
+	# private from here
+	DWidget: adt {
+		w: string;
+		r: Draw->Rect;
+		size: Draw->Point;
+	};
+	
+	DState: adt {
+		dragdiv: int;
+		dy: int;
+		maxy, miny: int;
+	};
+	
+};
-- 
cgit v1.2.3