| Jack Jansen | fcdf437 | 1996-04-10 14:43:17 +0000 | [diff] [blame] | 1 | # Test TE module, simple version |
| 2 | |
| Jack Jansen | 5a6fdcd | 2001-08-25 12:15:04 +0000 | [diff] [blame] | 3 | from Carbon.Win import * |
| 4 | from Carbon.TE import * |
| 5 | from Carbon import Qd |
| Jack Jansen | fcdf437 | 1996-04-10 14:43:17 +0000 | [diff] [blame] | 6 | |
| 7 | r = (40, 40, 140, 140) |
| 8 | w = NewWindow(r, "TETextBox test", 1, 0, -1, 1, 0x55555555) |
| 9 | ##w.DrawGrowIcon() |
| 10 | |
| 11 | r = (10, 10, 90, 90) |
| 12 | |
| 13 | Qd.SetPort(w) |
| 14 | t = TETextBox("Nobody expects the SPANISH inquisition", r, 1) |
| 15 | |
| 16 | import time |
| 17 | time.sleep(10) |