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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
|
# $XConsortium: ScrollText3c.scr /main/5 1995/07/17 20:40:37 drk $
#
# Motif
#
# Copyright (c) 1987-2012, The Open Group. All rights reserved.
#
# These libraries and programs are free software; you can
# redistribute them and/or modify them under the terms of the GNU
# Lesser General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option)
# any later version.
#
# These libraries and programs are distributed in the hope that
# they will be useful, but WITHOUT ANY WARRANTY; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU Lesser General Public License for more
# details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with these librararies and programs; if not, write
# to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
# Floor, Boston, MA 02110-1301 USA
#
#
# HISTORY
#
# #) Keyboard Selection -- Add Mode & Normal Mode:
#
# @) KSelect -- clears the current selection and sets the
# anchor
LocatePointer Text1
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text1 RTextChar 5
DragComponent Text1 RTextChar 12
ClickKey KSelect
CompareVisual Text1
LocatePointer Text2
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text2 RTextChar 5
DragComponent Text2 RTextChar 12
ClickKey KSelect
CompareVisual Text2
LocatePointer Text3
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text3 RTextChar 5
DragComponent Text3 RTextChar 12
ClickKey KSelect
CompareVisual Text3
LocatePointer Text4
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text4 RTextChar 5
DragComponent Text4 RTextChar 12
ClickKey KSelect
CompareVisual Text4
# #ifdef MOTIF1_1
# @) Ctrl KSelect -- Same as KSelect (Ctrl SELECT is allowed to
# have no effect)
# #endif MOTIF1_1
# #ifdef MOTIF1_2
# @) Ctrl KSelect -- no effect
# #endif MOTIF1_2
#
LocatePointer Text1 RTextChar 5
DragComponent Text1 RTextChar 12
ClickKey <Ctrl> KSelect
CompareVisual Text1
LocatePointer Text2 RTextChar 5
DragComponent Text2 RTextChar 12
ClickKey <Ctrl> KSelect
CompareVisual Text2
LocatePointer Text3 RTextChar 5
DragComponent Text3 RTextChar 12
ClickKey <Ctrl> KSelect
CompareVisual Text3
LocatePointer Text4 RTextChar 5
DragComponent Text4 RTextChar 12
ClickKey <Ctrl> KSelect
CompareVisual Text4
# @) Shift KSelect -- selects the text between the anchor and the
# cursor, takes ownership of primary selection
# @) Ctrl Shift KSelect -- no effect
#
LocatePointer Text1 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Shift> KSelect
CompareVisual Text1
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSelect
CompareVisual Text1
LocatePointer Text2 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Shift> KSelect
CompareVisual Text2
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSelect
CompareVisual Text2
LocatePointer Text3 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Shift> KSelect
CompareVisual Text3
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSelect
CompareVisual Text3
LocatePointer Text4 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Shift> KSelect
CompareVisual Text4
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSelect
CompareVisual Text4
# @) Shift <navigation operation> -- moves the cursor as indicated,
# selects the text between the anchor and the
# cursor, takes ownership of primary selection
# (Rebalances the anchor if necessary)
# #ifdef MOTIF1_2
# Includes Shift PageUp/PageDown
##
## NOTE: these are tested at the end of the file.
##
# #endif MOTIF1_2
#
LocatePointer Text1 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey <Shift> KRight
ClickKey <Shift> KRight
CompareVisual Text1
LocatePointer Text2 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey <Shift> KRight
ClickKey <Shift> KRight
CompareVisual Text2
LocatePointer Text3 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey <Shift> KRight
ClickKey <Shift> KRight
CompareVisual Text3
LocatePointer Text4 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey <Shift> KRight
ClickKey <Shift> KRight
CompareVisual Text4
# @) KSelectAll -- selects entire text and takes ownership of
# primary selection
#
# @) KDeselectAll -- deselects everything in that widget
#
LocatePointer Text1 RTextChar 5
ClickMB Btn1
ClickKey KSelectAll
CompareVisual Text1
LocatePointer Text1 RTextChar 5
ClickMB Btn1 2
ClickKey KDeselectAll
CompareVisual Text1
LocatePointer Text2 RTextChar 5
ClickMB Btn1
ClickKey KSelectAll
CompareVisual Text2
LocatePointer Text2 RTextChar 5
ClickMB Btn1 2
ClickKey KDeselectAll
CompareVisual Text2
LocatePointer Text3 RTextChar 5
ClickMB Btn1
ClickKey KSelectAll
CompareVisual Text3
LocatePointer Text3 RTextChar 5
ClickMB Btn1 2
ClickKey KDeselectAll
CompareVisual Text3
LocatePointer Text4 RTextChar 5
ClickMB Btn1
ClickKey KSelectAll
CompareVisual Text4
LocatePointer Text4 RTextChar 5
ClickMB Btn1 2
ClickKey KDeselectAll
CompareVisual Text4
## New tests for Motif 1.2, have to be at end so Visuals stay in
## synch for the rest of the compares.
# #) Keyboard Selection -- Add Mode & Normal Mode:
#
## ...
# @) Ctrl Space -- same as KSelect
## Reset Strings to original value
LocatePointer PushB1
ClickMB Btn1
LocatePointer Text1
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text1 RTextChar 5
DragComponent Text1 RTextChar 12
ClickKey <Ctrl> KSpace
CompareVisual Text1
LocatePointer Text2
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text2 RTextChar 5
DragComponent Text2 RTextChar 12
ClickKey <Ctrl> KSpace
CompareVisual Text2
LocatePointer Text3
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text3 RTextChar 5
DragComponent Text3 RTextChar 12
ClickKey <Ctrl> KSpace
CompareVisual Text3
LocatePointer Text4
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text4 RTextChar 5
DragComponent Text4 RTextChar 12
ClickKey <Ctrl> KSpace
CompareVisual Text4
# @) Ctrl Shift Space -- same as Shift KSelect
## Reset Strings to original value
LocatePointer PushB1
ClickMB Btn1
LocatePointer Text1 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSpace
CompareVisual Text1
LocatePointer Text2 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSpace
CompareVisual Text2
LocatePointer Text3 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSpace
CompareVisual Text3
LocatePointer Text4 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSpace
CompareVisual Text4
# @) Shift <navigation operation> -- moves the cursor as indicated,
# selects the text between the anchor and the
# cursor, takes ownership of primary selection
# (Rebalances the anchor if necessary)
# Includes Shift PageUp/PageDown
#
## Reset Strings to original value
LocatePointer PushB1
ClickMB Btn1
LocatePointer Text1 RTextChar 5
ClickMB Btn1
ClickKey <Shift> KPageDown
ClickKey <Shift> KPageDown
ClickKey KAddMode
ClickKey KUp
ClickKey KUp
ClickKey KUp
CompareVisual Text1
ClickKey <Shift> KPageUp
ClickKey KUp
CompareVisual Text1
LocatePointer Text3 RTextChar 5
ClickMB Btn1
ClickKey <Shift> KPageDown
ClickKey <Shift> KPageDown
ClickKey KAddMode
ClickKey KUp
ClickKey KUp
ClickKey KUp
CompareVisual Text3
ClickKey <Shift> KPageUp
ClickKey KUp
CompareVisual Text3
# C)
Exit
|
