From 4d56ecf69094824e408ab0be2e5b68ba4b1d9151 Mon Sep 17 00:00:00 2001
From: Jack Jansen <jack.jansen@cwi.nl>
Date: Thu, 9 Dec 1999 15:36:36 +0000
Subject: [PATCH] Minimal test of Dlg.SetControlData by Corran Webster: draw a
 default ring around a button. Mainly here so I can transfer it home:-)

---
 Mac/Lib/test/test_setcontroldata.py | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 Mac/Lib/test/test_setcontroldata.py

diff --git a/Mac/Lib/test/test_setcontroldata.py b/Mac/Lib/test/test_setcontroldata.py
new file mode 100644
index 00000000000..c46e6134d1c
--- /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