From 27c98775b7574073b0ea140c427724911d05306e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 22 Jul 1999 12:56:41 +0000 Subject: [PATCH] . original commit: b5e7d1eff3d3398d42c2b778b3818418fd92f749 --- collects/tests/mred/windowing.ss | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/collects/tests/mred/windowing.ss b/collects/tests/mred/windowing.ss index 7dda9b59..22e1b3b3 100644 --- a/collects/tests/mred/windowing.ss +++ b/collects/tests/mred/windowing.ss @@ -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")