diff options
| -rw-r--r-- | Mac/Lib/test/tlist_dialog.py | 82 | ||||
| -rw-r--r-- | Mac/Lib/test/tlist_dialog.rsrc.hqx | 11 |
2 files changed, 93 insertions, 0 deletions
diff --git a/Mac/Lib/test/tlist_dialog.py b/Mac/Lib/test/tlist_dialog.py new file mode 100644 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 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): |