From 2f21246c9643e820a3a9a161d6913771370334fa Mon Sep 17 00:00:00 2001
From: Jack Jansen <jack.jansen@cwi.nl>
Date: Thu, 17 Aug 1995 14:27:08 +0000
Subject: [PATCH] Test of list in dialog

---
 Mac/Lib/test/tlist_dialog.py       | 82 ++++++++++++++++++++++++++++++
 Mac/Lib/test/tlist_dialog.rsrc.hqx | 11 ++++
 2 files changed, 93 insertions(+)
 create mode 100644 Mac/Lib/test/tlist_dialog.py
 create mode 100644 Mac/Lib/test/tlist_dialog.rsrc.hqx

diff --git a/Mac/Lib/test/tlist_dialog.py b/Mac/Lib/test/tlist_dialog.py
new file mode 100644
index 00000000000..1d34ed33edb
--- /dev/null
+++ b/Mac/Lib/test/tlist_dialog.py
@@ -0,0 +1,82 @@
+import addpack
+addpack.addpack(':Tools:bgen:evt')
+
+from Dlg import *
+from Events import *
+from Evt import *
+from List import *
+from Qd import *
+import Res
+import string
+import MacOS
+
+ID = 513
+
+def dodialog(items):
+	print 'This is to create a window'
+	#
+	# Create the dialog
+	#
+	d = GetNewDialog(ID, -1)
+	#
+	# Create the list and fill it
+	#
+	tp, h, rect = d.GetDialogItem(2)
+	rect = rect[0], rect[1], rect[2]-15, rect[3]-15  # Space for scrollbars
+	length = (len(items)+1) / 2
+	list = LNew(rect, (0, 0, 2, length), (0, 0), 0, d, 0, 1, 1, 1)
+	for i in range(len(items)):
+		list.LSetCell(items[i], (i%2, i/2))
+	#
+	# Draw it.
+	#
+	list.LSetDrawingMode(1)
+	list.LUpdate()
+	#
+	# Do the (modeless) dialog
+	#
+	while 1:
+		ok, ev = WaitNextEvent(0xffff, 10)
+		if not ok:
+			# No event.
+			continue
+		(what, message, when, where, modifiers) = ev
+		if what == updateEvt:
+			# XXXX We just always update our list (sigh...)
+			SetPort(window)
+			list.LUpdate()
+		if IsDialogEvent(ev):
+			# It is a dialog event. See if it's ours.
+			ok, window, item = DialogSelect(ev)
+			if ok:
+				if window == d:
+					# Yes, it is ours.
+					if item == 1:	# OK button
+						break
+					elif item == 2:	# List
+						(what, message, when, where, modifiers) = ev
+						SetPort(window)
+						if what == mouseDown:
+							local = GlobalToLocal(where)
+							list.LClick(local, modifiers)
+					else:
+						print 'Unexpected item hit'
+				else:
+					print 'Unexpected dialog hit'
+		else:
+			MacOS.HandleEvent(ev)
+	sel = []
+	for i in range(len(items)):
+		ok, dummycell = list.LGetSelect(0, (i%2, i/2))
+		if ok:
+			sel.append(list.LGetCell(256, (i%2, i/2)))
+	print 'Your selection:', sel
+
+def test():
+	import os, sys
+	Res.OpenResFile('tlist_dialog.rsrc')
+	dodialog(os.listdir(':'))
+	sys.exit(1)
+
+if __name__ == '__main__':
+	test()
diff --git a/Mac/Lib/test/tlist_dialog.rsrc.hqx b/Mac/Lib/test/tlist_dialog.rsrc.hqx
new file mode 100644
index 00000000000..a9a01f7031b
--- /dev/null
+++ b/Mac/Lib/test/tlist_dialog.rsrc.hqx
@@ -0,0 +1,11 @@
+(This file may be decompressed with BinHex 4.0)
+
+:%A4XDA0dAf4TB@a[CbjbFh*M!(*cFQ058d9%!3#3"`'IhEi!N!3"!!!!!9N!!!"C
+!!!!4J$k+J!!qLS!!2SU!!$k+J!!qLS!!2SUq!$k+`!!q[rj%A4XDA0dAf4TB@a[
+CbjbFh*M!J!!!(*cFQ058d9%!3!!!(*cFQ058d9%!3!!0!$!!*!5V&M0H3#3"J'I
++J!!qLS!!2SU!!$k+J!!qLS!!2SU!!$k+J!!qLS!!2SUq!$k+`!!q[rj!$S!!2Vr
+%$S!!2SV!!$kr!!!qLS!!2SU!!$k+J!!qLS!!2SU!!$k+J!!qLS!!2SU!!$k+[J!
+qLX!!2Vrq3!k!!$kr`!!qLX!!2Vm!!$k+J!!qLS!!2SU!*!%2!!#!*!&UJ#J!,i!
+fJ3#6dX!N!8S!!S!T3$D!*!(#J!+!"`!fBJ18f9XC@0d)'%JGfpbC$S!!!!9!%B!
+MJ%1!Ai!!`%!!3#3"3)"!!!!!3!!!!&C!!!!@3!!!%B!b9$i%D)!!!!F!%B!!84-
+6dF!!!!54%P86!!!!"i#!Irr!!!!3!$*8E`#!Irr!*!&b8rJ2A):