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

added code to remove the graph-pb from the canvas while printing

Browse Source 
svn: r13117
This commit is contained in:
Robby Findler 2009-01-14 18:21:55 +00:00
parent ae1e6ca263
commit 8f3547e311
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/redex/private/traces.ss
View File

@ -132,7 +132,7 @@
#:scheme-colors? [scheme-colors? #t]
#:colors [colors '()]
#:layout [layout void])
(let-values ([(graph-pb frame)
(let-values ([(graph-pb canvas)
(traces reductions pre-exprs
#:no-show-frame? #t
#:multiple? multiple?
@ -141,11 +141,12 @@
#:scheme-colors? scheme-colors?
#:colors colors
#:layout layout)])
(print-to-ps graph-pb filename)))
(print-to-ps graph-pb canvas filename)))
(define (print-to-ps graph-pb filename)
(define (print-to-ps graph-pb canvas filename)
(let ([admin (send graph-pb get-admin)]
[printing-admin (new printing-editor-admin% [ed graph-pb])])
(send canvas set-editor #f)
(send graph-pb set-admin printing-admin)
(dynamic-wind
@ -168,6 +169,7 @@
(λ ()
(send graph-pb set-admin admin)
(send canvas set-editor graph-pb)
(send printing-admin shutdown) ;; do this early
(let loop ([snip (send graph-pb find-first-snip)])
(when snip
@ -556,7 +558,7 @@
(do-some-reductions)
(semaphore-post s)))
(yield s))
(values graph-pb f)]
(values graph-pb ec)]
[else
(reduce-button-callback #t)
(send f show #t)]))