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

.

Browse Source 
original commit: fc3b1ce3cb42f68c71a008d08f9ef14e65e523b5
This commit is contained in:
Matthew Flatt 2002-12-12 01:30:18 +00:00
parent 9d9e9aa76f
commit 6b09b6d98b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/mred/paramz.ss
View File

@ -35,12 +35,13 @@
(define d (make-object dialog% "hello"))
(thread (lambda ()
(sleep 1)
(queue-callback (lambda () (set! v 9)))
(queue-callback (lambda () (set! v 11)))
(send d show #f)))
(queue-callback (lambda () (set! v 10)))
(send d show #t)
(test v 'dialog-wait 9)
(test v 'dialog-wait 10)
(yield)
(test v 'dialog-run 9)
(test v 'dialog-run 11)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Parameterization Tests ;;