85 |
fprintf (stderr, "%d: " fmt "\n", getpid (), a0) |
fprintf (stderr, "%d: " fmt "\n", getpid (), a0) |
86 |
#define TRACE2(fmt, a0, a1) \ |
#define TRACE2(fmt, a0, a1) \ |
87 |
fprintf (stderr, "%d: " fmt "\n", getpid (), a0, a1) |
fprintf (stderr, "%d: " fmt "\n", getpid (), a0, a1) |
88 |
|
#define TRACE3(fmt, a0, a1, a2) \ |
89 |
|
fprintf (stderr, "%d: " fmt "\n", getpid (), a0, a1, a2) |
90 |
#else |
#else |
91 |
#define TRACE0(fmt) (void) 0 |
#define TRACE0(fmt) (void) 0 |
92 |
#define TRACE1(fmt, a0) (void) 0 |
#define TRACE1(fmt, a0) (void) 0 |
93 |
#define TRACE2(fmt, a0, a1) (void) 0 |
#define TRACE2(fmt, a0, a1) (void) 0 |
94 |
|
#define TRACE3(fmt, a0, a1) (void) 0 |
95 |
#endif |
#endif |
96 |
|
|
97 |
|
|
626 |
BLOCK_INPUT; |
BLOCK_INPUT; |
627 |
count = x_catch_errors (display); |
count = x_catch_errors (display); |
628 |
|
|
629 |
|
#ifdef TRACE_SELECTION |
630 |
|
{ |
631 |
|
static int cnt; |
632 |
|
char *sel = XGetAtomName (display, reply.selection); |
633 |
|
char *tgt = XGetAtomName (display, reply.target); |
634 |
|
TRACE3 ("%s, target %s (%d)", sel, tgt, ++cnt); |
635 |
|
if (sel) XFree (sel); |
636 |
|
if (tgt) XFree (tgt); |
637 |
|
} |
638 |
|
#endif /* TRACE_SELECTION */ |
639 |
|
|
640 |
/* Store the data on the requested property. |
/* Store the data on the requested property. |
641 |
If the selection is large, only store the first N bytes of it. |
If the selection is large, only store the first N bytes of it. |
642 |
*/ |
*/ |
1459 |
BLOCK_INPUT; |
BLOCK_INPUT; |
1460 |
XSelectInput (display, window, STANDARD_EVENT_SET | PropertyChangeMask); |
XSelectInput (display, window, STANDARD_EVENT_SET | PropertyChangeMask); |
1461 |
TRACE1 (" Delete property %s", |
TRACE1 (" Delete property %s", |
1462 |
XSYMBOL (x_atom_to_symbol (display, property))->name->data); |
SDATA (XSYMBOL (x_atom_to_symbol (display, property))->xname)); |
1463 |
XDeleteProperty (display, window, property); |
XDeleteProperty (display, window, property); |
1464 |
TRACE1 (" Expect new value of property %s", |
TRACE1 (" Expect new value of property %s", |
1465 |
XSYMBOL (x_atom_to_symbol (display, property))->name->data); |
SDATA (XSYMBOL (x_atom_to_symbol (display, property))->xname)); |
1466 |
wait_object = expect_property_change (display, window, property, |
wait_object = expect_property_change (display, window, property, |
1467 |
PropertyNewValue); |
PropertyNewValue); |
1468 |
XFlush (display); |
XFlush (display); |