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/wm/ftree/items.m | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 appl/wm/ftree/items.m

(limited to 'appl/wm/ftree/items.m')

diff --git a/appl/wm/ftree/items.m b/appl/wm/ftree/items.m
new file mode 100644
index 00000000..7af34d12
--- /dev/null
+++ b/appl/wm/ftree/items.m
@@ -0,0 +1,30 @@
+Items: module {
+	PATH: con "/dis/lib/ftree/items.dis";
+
+	Item: adt {
+		name:	string;	# tag held in common by all canvas items in this Item.
+		r:		Rect;		# relative to parent's Item when stored in children
+		attach:	Point;	# attachment point relative to r.min
+		
+		eq:		fn(i: self Item, j: Item): int;
+		addpt:	fn(i: self Item, p: Point): Item;
+		subpt:	fn(i: self Item, p: Point): Item;
+	};
+
+	Expander: adt {
+		titleitem:		Item;
+		expanded: 	int;
+		children: 		array of Item;
+		win: 			ref Tk->Toplevel;
+		cvs: 			string;
+		spotid:		int;
+	
+		new:			fn(win: ref Tk->Toplevel, cvs: string): ref Expander;
+		make:		fn(e: self ref Expander, it: Item): Item;
+		event:		fn(e: self ref Expander, it: Item, ev: string): Item;
+		childrenchanged:	fn(e: self ref Expander, it: Item): Item;
+	};
+
+	init: 		fn();
+	maketext:	fn(win: ref Tk->Toplevel, cvs: string, name: string, text: string): Item;
+};
-- 
cgit v1.2.3