draw frame over pict instead of under
svn: r7904
This commit is contained in:
parent
4b1b737d8f
commit
6e464cda15
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user