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

fix pasteboard% 'remove' (merge to 4.2.3)

Browse Source 
svn: r16963
This commit is contained in:
Matthew Flatt 2009-11-22 15:43:15 +00:00
parent 178d0f8e34
commit 47c66b71eb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -770,7 +770,7 @@
(snip-set-admin del-snip #f) (snip-set-admin del-snip #f)
(set-snip-flags! del-snip (remove-flag (snip->flags del-snip) CAN-DISOWN)) (set-snip-flags! del-snip (remove-flag (snip->flags del-snip) CAN-DISOWN))
(unless del (unless del
(when (send del-snip get-admin) (unless (send del-snip get-admin)
(set-snip-flags! del-snip (remove-flag (snip->flags del-snip) OWNED)))) (set-snip-flags! del-snip (remove-flag (snip->flags del-snip) OWNED))))
(unless s-modified? (unless s-modified?