suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: b5e7d1eff3d3398d42c2b778b3818418fd92f749
This commit is contained in:
Matthew Flatt 1999-07-22 12:56:41 +00:00
parent f065341b02
commit 27c98775b7
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/tests/mred/windowing.ss
View File

@ -786,6 +786,22 @@
'done-lists)
(let loop ([styles '((single) (multiple) (multiple hscroll))])
(unless (null? styles)
(let ([t (make-object text-field% "Label" parent void "Starting Value" (car styles))])
(st "Starting Value" t get-value)
(stv t set-value "different")
(st "different" t get-value)
(test #t 'is-editor? (is-a? (send t get-editor) text%))
(containee-window-tests t #t
(and (memq 'multiple (car styles)) #t)
parent frame 0)
(send parent delete-child t)
(loop (cdr styles)))))
(let ([c (make-object canvas% parent '(hscroll vscroll))])
(printf "Tab Focus~n")