1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
/*
* Copyright 1990, 1991 by the Massachusetts Institute of Technology and
* UniSoft Group Limited.
*
* Permission to use, copy, modify, distribute, and sell this software and
* its documentation for any purpose is hereby granted without fee,
* provided that the above copyright notice appear in all copies and that
* both that copyright notice and this permission notice appear in
* supporting documentation, and that the names of MIT and UniSoft not be
* used in advertising or publicity pertaining to distribution of the
* software without specific, written prior permission. MIT and UniSoft
* make no representations about the suitability of this software for any
* purpose. It is provided "as is" without express or implied warranty.
*
* $XConsortium$
*/
>>TITLE XGetSelectionOwner CH04
Window
Display *display = Dsp;
Atom selection = XA_COPYRIGHT;
>>EXTERN
#include "Xatom.h"
>>ASSERTION Good A
A call to xname returns the window ID associated with the window that
currently owns the specified
.A selection .
>>STRATEGY
Create a window with a selection.
Call xname to obtain the window ID of the selection owner.
Verify the window ID returned was that of the selection owner.
>>CODE
Window owner, ret;
/* Create a window with a selection. */
owner = defwin(display);
XSetSelectionOwner(display, selection, owner, CurrentTime);
/* Call xname to obtain the window ID of the selection owner. */
ret = XCALL;
/* Verify the window ID returned was that of the selection owner. */
if (ret != owner) {
FAIL;
report("%s did not return the window ID of the selection owner",
TestName);
trace("Expected window ID: %0x", owner);
trace("Returned window ID: %0x", ret);
} else
CHECK;
CHECKPASS(1);
>>ASSERTION Good A
When the
.A selection
is not owned by a window, then a call to xname returns
.S None .
>>STRATEGY
Ensure the selection has no owner.
Call xname to obtain selection owner.
Verify that xname returned None.
>>CODE
Window ret;
/* Ensure the selection has no owner. */
XSetSelectionOwner(display, selection, None, CurrentTime);
/* Call xname to obtain selection owner. */
ret = XCALL;
/* Verify that xname returned None. */
if(ret != None) {
FAIL;
report("%s returned %0x on a selection with no owner.",
TestName);
report("Expecting None.");
} else
CHECK;
CHECKPASS(1);
>>ASSERTION Bad A
.ER BadAtom
|
