From: Jack Jansen <jack.jansen@cwi.nl>
Date: Thu, 9 Dec 1999 15:36:36 +0000 (+0000)
Subject: Minimal test of Dlg.SetControlData by Corran Webster: draw a default
X-Git-Tag: v1.6a1~676
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=4d56ecf69094824e408ab0be2e5b68ba4b1d9151;p=thirdparty%2FPython%2Fcpython.git

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
index 000000000000..c46e6134d1c1
--- /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