cpython/Mac/Lib/test/test_setcontroldata.py

import W
from Carbon.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)
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 11:36:36 -04:00			`import W`
Import the MacOS toolbox modules from the Carbon package. 2001-08-25 09:15:04 -03:00			`from Carbon.Controls import *`
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 11:36:36 -04:00
			`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)`