diff options
author | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2012-08-25 12:16:22 (GMT) |
---|---|---|
committer | petasis <petasis@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2012-08-25 12:16:22 (GMT) |
commit | 0ecffcbbf10c4c1589e8c4b0c3139de8480a6bfa (patch) | |
tree | 54b8d0ce5211626e2bfca2921488f1733505ee42 | |
parent | 0332eda7b44a7931bea22681014852fc64194d63 (diff) | |
download | tkdnd-0ecffcbbf10c4c1589e8c4b0c3139de8480a6bfa.zip tkdnd-0ecffcbbf10c4c1589e8c4b0c3139de8480a6bfa.tar.gz tkdnd-0ecffcbbf10c4c1589e8c4b0c3139de8480a6bfa.tar.bz2 |
TkDND 2.5
-rw-r--r-- | unix/tkUnixSelect.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/unix/tkUnixSelect.c b/unix/tkUnixSelect.c index e467232..d547129 100644 --- a/unix/tkUnixSelect.c +++ b/unix/tkUnixSelect.c @@ -216,7 +216,11 @@ void TkDND_SelectionNotifyEventProc(ClientData clientData, XEvent *eventPtr) { } } if (status) detail->result = TCL_OK; - else detail->result = TCL_ERROR; + else { + /* Do not report the error if this has not be called by a + * SelectionNotify event... */ + if (eventPtr != NULL) detail->result = TCL_ERROR; + } }; /* TkDND_SelectionNotifyEventProc */ void TkDND_PropertyNotifyEventProc(ClientData clientData, XEvent *eventPtr) { |