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

ring around a button. Mainly here so I can transfer it home:-)
1999-12-09 15:36:36 +00:00 · 1999-12-09 15:36:36 +00:00 · 4d56ecf690
parent 8f5725af60
commit 4d56ecf690
1 changed files with 13 additions and 0 deletions
--- a/Mac/Lib/test/test_setcontroldata.py
+++ 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)