pseudo progress bar (not finished)

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()
+