draw frame over pict instead of under

svn: r7904
This commit is contained in:
Matthew Flatt 2007-12-05 23:45:43 +00:00
parent 4b1b737d8f
commit 6e464cda15

View File

@ -31,7 +31,7 @@
[f (if lw [f (if lw
(linewidth lw f) (linewidth lw f)
f)]) f)])
(refocus (cc-superimpose f p) (refocus (cc-superimpose p f)
p))) p)))
(define (pict-path? p) (define (pict-path? p)