From 808d8732e2924c608c8f5f7b80cdbc8dc1d32b5d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 19 Mar 2007 03:49:34 +0000
Subject: [PATCH] fix pasteboard remove method (PR 8565)

svn: r5788
---
 src/mred/wxme/wx_mpbrd.cxx | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/mred/wxme/wx_mpbrd.cxx b/src/mred/wxme/wx_mpbrd.cxx
index 1438162805..7596e1130e 100644
--- a/src/mred/wxme/wx_mpbrd.cxx
+++ b/src/mred/wxme/wx_mpbrd.cxx
@@ -950,7 +950,10 @@ Bool wxMediaPasteboard::_Delete(wxSnip *del_snip,
       snip->flags += wxSNIP_CAN_DISOWN;
       SnipSetAdmin(snip, NULL);
       snip->flags -= wxSNIP_CAN_DISOWN;
-
+      if (!del)
+        if (!snip->GetAdmin())
+          snip->flags -= wxSNIP_OWNED;
+      
       if (!modified)
 	SetModified(TRUE);