suzanne.soy/gui
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

original commit: 78ad4f96156c406b2dbfb123090cda623ddb6c09
This commit is contained in:
Matthew Flatt 2009-08-25 11:20:03 +00:00
parent 48e55a8473
commit 0f57230574
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-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)
(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
(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?
(set-modified #t))