Test of list in dialog

diff --git a/Mac/Lib/test/tlist_dialog.py b/Mac/Lib/test/tlist_dialog.py
new file mode 100644 (file)
index 0000000..1d34ed3
--- /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 (file)
index 0000000..a9a01f7
--- /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):