Trying again to check it in. Changes to:

- Use Universal Headers as input
- Change addpack calls to not depend on Guido's disklayout
- Checkge testprograms to use new names for some functions
This commit is contained in:
Jack Jansen 1995-06-06 12:55:40 +00:00
parent c7cfb95559
commit ae8a68f40c
16 changed files with 466 additions and 284 deletions

View file

@ -1,12 +1,12 @@
# Progress dialog
from addpack import addpack
addpack('Demo')
addpack('Tools')
addpack('bgen')
addpack('dlg')
addpack('evt')
from Dlg import GetNewDialog, ModalDialog, SetIText
from Dlg import GetNewDialog, ModalDialog, SetDialogItemText
count = 0
@ -17,12 +17,12 @@ def filter(d, e):
def main():
d = GetNewDialog(256, -1)
tp, h, rect = d.GetDItem(2)
SetIText(h, "Progress...")
tp, h, rect = d.GetDialogItem(2)
SetDialogItemText(h, "Progress...")
for i in range(100):
if i%10 == 0:
str = "Progress...%d" % i
SetIText(h, str)
SetDialogItemText(h, str)
ModalDialog(filter)
for j in range(100): pass