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
(linewidth lw f)
f)])
(refocus (cc-superimpose f p)
(refocus (cc-superimpose p f)
p)))
(define (pict-path? p)