pseudo progress bar (not finished)

diff --git a/Mac/Lib/test/progressbar.py b/Mac/Lib/test/progressbar.py
new file mode 100644 (file)
index 0000000..59e0cc1
--- /dev/null
+++ b/Mac/Lib/test/progressbar.py
@@ -0,0 +1,31 @@
+# Progress dialog
+
+from addpack import addpack
+addpack('Demo')
+addpack('bgen')
+addpack('dlg')
+addpack('evt')
+
+from Dlg import GetNewDialog, ModalDialog, SetIText
+
+count = 0
+
+def filter(d, e):
+       r = 1
+       print "Filter(%s, %s) -> %s" % (`d`, `e`, `r`)
+       return r
+
+def main():
+       d = GetNewDialog(256, -1)
+       tp, h, rect = d.GetDItem(2)
+       SetIText(h, "Progress...")
+       for i in range(100):
+               if i%10 == 0:
+                       str = "Progress...%d" % i
+                       SetIText(h, str)
+                       ModalDialog(filter)
+               for j in range(100): pass
+
+if __name__ == '__main__':
+       main()
+