pseudo progress bar (not finished)
diff --git a/Mac/Lib/test/progressbar.py b/Mac/Lib/test/progressbar.py
new file mode 100644
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()
+