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

DrDr props

Browse Source 
svn: r15496
This commit is contained in:
Jay McCarthy 2009-07-20 15:01:19 +00:00
parent 757999e8e7
commit ba378b0a63
5 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/frtime/gui/demo/bindec.ss
View File

@ -1,3 +1,4 @@
#lang frtime
(require frtime/gui/simple) (require frtime/gui/simple)
(require (rename mred horizontal-panel% horizontal-panel%)) (require (rename mred horizontal-panel% horizontal-panel%))

1
collects/frtime/gui/demo/instr.ss
View File

@ -1,3 +1,4 @@
#lang frtime
(require frtime/gui/mixin-macros frtime/gui/aux-mixin-macros) (require frtime/gui/mixin-macros frtime/gui/aux-mixin-macros)
(require mzlib/class) ; require class utilities (require mzlib/class) ; require class utilities
(require mred) ; require base mred library (require mred) ; require base mred library

1
collects/frtime/gui/demo/timer.ss
View File

@ -1,3 +1,4 @@
#lang frtime
(require frtime/gui/simple) (require frtime/gui/simple)
(current-widget-parent (new ft-frame% (width 400) (stretchable-width #t))) (current-widget-parent (new ft-frame% (width 400) (stretchable-width #t)))

4
collects/frtime/tests/mailbox.ss
View File

@ -20,8 +20,8 @@
(mailbox-send! mb 25) => (void) (mailbox-send! mb 25) => (void)
((mailbox-receive mb #f error-timeout id-thnk)) => 25 ((mailbox-receive mb #f error-timeout id-thnk)) => 25
((mailbox-receive mb 10 error-timeout id-thnk)) =error> "never" ((mailbox-receive mb 10 error-timeout id-thnk)) =error> "never"
(mailbox-send! mb #f) => (void) ;(mailbox-send! mb #f) => (void)
((mailbox-receive mb #f error-timeout id-thnk)) => #f ;((mailbox-receive mb #f error-timeout id-thnk)) =error> "never"
(mailbox-send! mb 21) => (void) (mailbox-send! mb 21) => (void)
((mailbox-receive mb 10 error-timeout (want-thnk 25))) =error> "never" ((mailbox-receive mb 10 error-timeout (want-thnk 25))) =error> "never"
((mailbox-receive mb 10 error-timeout (want-thnk 21))) => 21 ((mailbox-receive mb 10 error-timeout (want-thnk 21))) => 21

2
collects/web-server/default-web-root/htdocs/servlets/examples/quiz.ss
View File

@ -33,7 +33,7 @@
(define question-answer caddr) (define question-answer caddr)
(define question-explanation cadddr) (define question-explanation cadddr)
(define quiz (load *data-file*)) (define quiz (with-input-from-file *data-file* read))
(define quiz-intro (car quiz)) (define quiz-intro (car quiz))
(define all-questions (cadr quiz)) (define all-questions (cadr quiz))