fix naming of name of universe state window
This commit is contained in:
parent
5fee2676dc
commit
5e7ac9a038
|
@ -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
|
||||
|
|
|
@ -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)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user