1996-04-10 11:43:17 -03:00
|
|
|
# Test TE module, simple version
|
|
|
|
|
|
2001-08-25 09:15:04 -03:00
|
|
|
from Carbon.Win import *
|
|
|
|
|
from Carbon.TE import *
|
|
|
|
|
from Carbon import Qd
|
1996-04-10 11:43:17 -03:00
|
|
|
|
|
|
|
|
r = (40, 40, 140, 140)
|
|
|
|
|
w = NewWindow(r, "TETextBox test", 1, 0, -1, 1, 0x55555555)
|
|
|
|
|
##w.DrawGrowIcon()
|
|
|
|
|
|
|
|
|
|
r = (10, 10, 90, 90)
|
|
|
|
|
|
|
|
|
|
Qd.SetPort(w)
|
|
|
|
|
t = TETextBox("Nobody expects the SPANISH inquisition", r, 1)
|
|
|
|
|
|
|
|
|
|
import time
|
|
|
|
|
time.sleep(10)
|
