10505 fixed

svn: r16661
2009-11-10 19:56:19 +00:00 · 2009-11-10 19:56:19 +00:00 · c2de9f32c1
commit c2de9f32c1
parent 9c0c1ec591
2 changed files with 4 additions and 2 deletions
--- a/collects/2htdp/private/checked-cell.ss
+++ b/collects/2htdp/private/checked-cell.ss
@ -83,7 +83,9 @@
    ;; -> ok?
    (define/public (get) value)
    
-    (super-new)))
+    (super-new)
+    
+    (when pb (show-state))))

 ; (define c (new checked-cell% [msg "World"] [value0 1] [ok? positive?]))
 ; (send c set "tick" 10)