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

10505 fixed

Browse Source 
svn: r16661
This commit is contained in:
Matthias Felleisen 2009-11-10 19:56:19 +00:00
parent 9c0c1ec591
commit c2de9f32c1
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/2htdp/private/checked-cell.ss
View File

@ -83,7 +83,9 @@
;; -> ok? ;; -> ok?
(define/public (get) value) (define/public (get) value)
(super-new))) (super-new)
(when pb (show-state))))
; (define c (new checked-cell% [msg "World"] [value0 1] [ok? positive?])) ; (define c (new checked-cell% [msg "World"] [value0 1] [ok? positive?]))
; (send c set "tick" 10) ; (send c set "tick" 10)

2
collects/2htdp/private/world.ss
View File

@ -53,7 +53,7 @@
(init-field (init-field
world0 ;; World world0 ;; World
(name #f) ;; (U #f String) (name #f) ;; (U #f String)
(state #f) ;; Boolean (state #f) ;; Boolean
(register #f) ;; (U #f IP) (register #f) ;; (U #f IP)
(check-with True) ;; Any -> Boolean (check-with True) ;; Any -> Boolean
(tick K)) ;; (U (World -> World) (list (World -> World) Nat)) (tick K)) ;; (U (World -> World) (list (World -> World) Nat))