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

editor pasteboard bug fix from Jordan Johnson

Browse Source 
svn: r15797
This commit is contained in:
Matthew Flatt 2009-08-25 11:20:03 +00:00
parent 96c23c6212
commit 78ad4f9615
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wxme/pasteboard.ss
View File

@ -766,12 +766,12 @@
(set-snip-next! del-snip #f) (set-snip-next! del-snip #f)
(set-snip-prev! del-snip #f) (set-snip-prev! del-snip #f)
(set-snip-flags! del-snip (add-flag CAN-DISOWN (snip->flags del-snip))) (set-snip-flags! del-snip (add-flag (snip->flags del-snip) CAN-DISOWN))
(snip-set-admin del-snip #f) (snip-set-admin del-snip #f)
(set-snip-flags! del-snip (remove-flag CAN-DISOWN (snip->flags del-snip))) (set-snip-flags! del-snip (remove-flag (snip->flags del-snip) CAN-DISOWN))
(unless del (unless del
(when (send del-snip get-admin) (when (send del-snip get-admin)
(set-snip-flags! del-snip (remove-flag OWNED (snip->flags del-snip))))) (set-snip-flags! del-snip (remove-flag (snip->flags del-snip) OWNED))))
(unless s-modified? (unless s-modified?
(set-modified #t)) (set-modified #t))