Minimal test of Dlg.SetControlData by Corran Webster: draw a default

ring around a button. Mainly here so I can transfer it home:-)

diff --git a/Mac/Lib/test/test_setcontroldata.py b/Mac/Lib/test/test_setcontroldata.py
new file mode 100644 (file)
index 0000000..c46e613
--- /dev/null
+++ b/Mac/Lib/test/test_setcontroldata.py
@@ -0,0 +1,13 @@
+import W
+from Controls import *
+
+w = W.Window((200,200), "Test")
+
+w.c = W.Button((5,5,100,50), "Test")
+
+w.open()
+
+print repr(w.c._control.GetControlData(0, 'dflt'))
+
+str = '\001'
+w.c._control.SetControlData(0, 'dflt', str)
\ No newline at end of file