fix naming of name of universe state window

This commit is contained in:
Matthias Felleisen 2011-03-26 12:47:27 -04:00
parent 5fee2676dc
commit 5e7ac9a038
2 changed files with 2 additions and 2 deletions

View File

@ -49,7 +49,7 @@
(field
[universe
(new checked-cell% [msg "UniSt"] [value0 universe0] [ok? check-with]
[display (and state "your server's state")])])
[display (if (string? state) state (and state "your server's state"))])])
;; -----------------------------------------------------------------------
;; dealing with events

View File

@ -55,7 +55,7 @@
(num> 'on-tick rate (lambda (x) (and (real? x) (positive? x)))
"positive number" "rate"))])]
;; -- state specifies whether to display the current state
[state DEFAULT #'#f (expr-with-check bool> "expected a boolean")]
[state DEFAULT #'#f (expr-with-check any> "expected a boolean or a string")]
;; Any -> Boolean
;; -- check-with: all states should specify this predicate
[check-with DEFAULT #'True (function-with-arity 1)])