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

This commit should affect the 4.1.2 release; it removes the buggy bug-fix.

Browse Source 
svn: r12115
This commit is contained in:
Kathy Gray 2008-10-24 13:12:42 +00:00
parent 59f33840c2
commit 59609e8910
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/test-engine/test-display.scm
View File

@ -32,6 +32,7 @@
(lambda () (put-preferences '(test:test-window:docked?) '(#f)) #f))))
(define/public (report-success)
(printf "calling report-success~n")
(when current-rep
(unless current-tab
(set! current-tab (send (send current-rep get-definitions-text) get-tab)))
@ -39,13 +40,19 @@
(set! drscheme-frame (send current-rep get-top-level-window)))
(let ([curr-win (and current-tab (send current-tab get-test-window))]
[content (make-object (editor:standard-style-list-mixin text%))])
(printf "current-tab ~a , curr-win ~a ~n" current-tab curr-win)
(send this insert-test-results content test-info src-editor)
(printf "inserted test results~n")
(send content lock #t)
(printf "locked content~n")
(when curr-win (send curr-win update-editor content))
(printf "updated test-window editor~n")
(when current-tab (send current-tab current-test-editor content))
(printf "editors updated~n")
(when (and curr-win (docked?))
(send drscheme-frame display-test-panel content)
(send curr-win show #f)))))
#;(send curr-win show #f))
(printf "done~n"))))
(define/public (display-results)
(let* ([curr-win (and current-tab (send current-tab get-test-window))]
@ -229,7 +236,7 @@
(super-instantiate
((string-constant test-engine-window-title) #f 400 350))
(define editor #f)
#;(define editor #f)
(define switch-func void)
(define disable-func void)
(define close-cleanup void)
@ -269,8 +276,8 @@
(make-object grow-box-spacer-pane% button-panel)))
(define/public (update-editor e)
(set! editor e)
(send content set-editor editor))
#;(set! editor e)
(send content set-editor e))
(define/public (update-switch thunk)
(set! switch-func thunk))

2
collects/test-engine/test-engine.scm
View File

@ -140,7 +140,7 @@
(send this display-results display-rep display-event-space)]))))
(define/public (display-success port event)
(when event
#;(when event
(parameterize ([(dynamic-require 'scheme/gui 'current-eventspace) event])
((dynamic-require 'scheme/gui 'queue-callback)
(lambda () (send test-display report-success)))))