This "test" showed an obsolete way to get scrolled lists in dialogs. Removed.

This commit is contained in:
Jack Jansen 2001-08-03 14:05:29 +00:00
parent 4369b00c71
commit 7a9f9557db
1 changed files with 0 additions and 79 deletions

View File

@ -1,79 +0,0 @@
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(d.GetDialogWindow().GetWindowPort().visRgn)
#
# 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(d.GetDialogWindow().GetWindowPort().visRgn)
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.FSpOpenResFile('tlist_dialog.rsrc', 1)
dodialog(os.listdir(':'))
sys.exit(1)
if __name__ == '__main__':
test()