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

jackjansen · jackjansen · commit 4d56ecf69094 · 1999-12-09T15:36:36.000Z
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
@@ -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)
