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
|
# $XConsortium: TextWcs1.scr /main/5 1995/07/17 20:43:21 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
#
# @) A client with a list of functions, a control panel and a Text widget to
# be acted upon should appear.
# @) The Action Text widget should initially contain the string
# "This is the starting string".
WindowRaise Shell1
CompareVisual Text1
# #) Drag MB1 in the Action Text widget to make a small selection.
LocatePointer Text1 RTextChar 5
DragComponent Text1 RTextChar 9
# #) Select the XmTextGetSelectionWcs() function, and click Call Function.
# The selected string from Action Text should appear
# in the status widget.
LocatePointer List1 RListItem 0
ClickMB Btn1
LocatePointer ApplyB
ClickMB Btn1
CompareVisual StatText
# C)
Continue
WindowRaise Shell1
# #) Click the Clear Args PushButton to reset the control panel.
LocatePointer ClearB
ClickMB Btn1
# #) Select the XmTextInsertWcs() function. Set the Num Arg 1 Scale to 3.
LocatePointer List1 RListItem 0
ClickMB Btn1
LocatePointer Scale1 RScaleSlider
DragSliderValue Right 3
# #) Click in the Status/Input widget and type in a new string like "NEW".
LocatePointer StatText
ClickMB Btn1
InputString "NEW"
# #) Click the Call Function PushButton. The string in the Status/Input
# widget should get inserted after the third character in the Action Text
# widget.
LocatePointer ApplyB
ClickMB Btn1
CompareVisual Text1
# C)
Continue
WindowRaise Shell1
# #) Select and call the XmTextGetStringWcs() function. The entire string from
# the Action Text widget should appear in the Status/Input widget. Note that
# the string may be wider than the Status widget width. Use the arrow
# keys to move to the hidden text.
LocatePointer List1 RListItem 0
ClickMB Btn1
LocatePointer ApplyB
ClickMB Btn1
CompareVisual StatText
LocatePointer StatText
ClickMB Btn1
ClickKey KEndData
CompareVisual StatText
# #) Click the Clear Args PushButton to reset the control panel.
LocatePointer ClearB
ClickMB Btn1
# #) Select the XmTextSetStringWcs() function.
LocatePointer List1 RListItem 1
ClickMB Btn1
# #) Click in the Status/Input widget and type "Here is a new string".
LocatePointer StatText
ClickMB Btn1
InputString "Here is a new string"
# #) Click the Call Function PushButton. The new text from the Status
# widget should replace all the text that was previously in the Action
# Text widget.
LocatePointer ApplyB
ClickMB Btn1
CompareVisual Text1
# #) Click the Clear Args PushButton.
LocatePointer ClearB
ClickMB Btn1
# #) Select the XmTextReplaceWcs() function. Set the Num Arg 1 Scale to 2
# and the Num Arg 2 Scale to 7.
LocatePointer List1 RListItem 2
ClickMB Btn1
LocatePointer Scale1 RScaleSlider
DragSliderValue Right 2
LocatePointer Scale2 RScaleSlider
DragSliderValue Right 7
# #) Click in the Status/Input widget and type "y wheres".
LocatePointer StatText
ClickMB Btn1
InputString "y wheres"
# #) Click the Call Function PushButton. The Action Text widget should
# now read "Hey wheres a new string".
LocatePointer ApplyB
ClickMB Btn1
CompareVisual Text1
# C)
Continue
WindowRaise Shell1
# #) Click the Clear Args PushButton.
LocatePointer ClearB
ClickMB Btn1
# #) Select the XmTextFindStringWcs() function.
LocatePointer List1 RListItem 0
ClickMB Btn1
# #) Click in the Status/Input widget and type "new".
LocatePointer StatText
ClickMB Btn1
InputString "new"
# #) Click the Call Function PushButton. The Status/Input widget should
# indicate the string was found. The Action Text widget should have the
# search string selected.
LocatePointer ApplyB
ClickMB Btn1
CompareVisual StatText
CompareVisual Text1
# #) Click the Clear Args PushButton.
LocatePointer ClearB
ClickMB Btn1
# #) Select the XmTextFindStringWcs() function.
LocatePointer List1 RListItem 0
ClickMB Btn1
# #) Click in the Status/Input widget and type "old", and click Call Function.
LocatePointer StatText
ClickMB Btn1
InputString "old"
LocatePointer ApplyB
ClickMB Btn1
# #) The Status/Input widget should indicate that the string was not found.
CompareVisual StatText
# #) Click the Clear Args PushButton.
LocatePointer ClearB
ClickMB Btn1
# #) Select the XmTextFindStringWcs() function.
LocatePointer List1 RListItem 0
ClickMB Btn1
# #) Set Num Arg 1 to 28. Toggle the Forward/Backward Arg to Backward.
LocatePointer Scale1 RScaleSlider
DragSliderValue Right 28
LocatePointer ToggleB2
ClickMB Btn1
# #) Click in the Status widget and type "ey", and click Call Function.
LocatePointer StatText
ClickMB Btn1
InputString "ey"
LocatePointer ApplyB
ClickMB Btn1
# #) The Status widget should indicate the string was found and the Action
# Text should have the search string selected.
CompareVisual StatText
CompareVisual Text1
# C)
Continue
WindowRaise Shell1
# #) Click the Clear Args PushButton.
LocatePointer ClearB
ClickMB Btn1
# #) Select the XmTextGetSubstringWcs() function.
LocatePointer List1 RListItem 0
ClickMB Btn1
# #) Set the Num Arg 1 Scale to 5, the Num Arg 2 Scale to 4, and
# the Num Arg 3 Scale to 5.
LocatePointer Scale1 RScaleSlider
DragSliderValue Right 5
LocatePointer Scale2 RScaleSlider
DragSliderValue Right 4
LocatePointer Scale3 RScaleSlider
DragSliderValue Right 5
# #) Click the Call Function PushButton. The Status/Input widget should
# contain the substring "here".
LocatePointer ApplyB
ClickMB Btn1
CompareVisual StatText
# #) Set the Num Arg 1 Scale to 20, the Num Arg 2 Scale to 4, and
# the Num Arg 3 Scale to 5.
LocatePointer Scale1 RScaleSlider
DragSliderValue Right 20
# #) Click the Call Function PushButton. The Status/Input widget should
# contain the substring "(XmCOPY_TRUNCATED) ing".
LocatePointer ApplyB
ClickMB Btn1
CompareVisual StatText
LocatePointer StatText
ClickMB Btn1
ClickKey KEndData
CompareVisual StatText
# #) Set the Num Arg 1 Scale to 5, the Num Arg 2 Scale to 4, and
# the Num Arg 3 Scale to 3.
LocatePointer Scale1 RScaleSlider
DragSliderValue Left 5
LocatePointer Scale3 RScaleSlider
DragSliderValue Left 3
# #) Click the Call Function PushButton. The Status/Input widget should
# contain the substring "Return: XmCOPY_FAILED".
LocatePointer ApplyB
ClickMB Btn1
CompareVisual StatText
# E)
Exit
|
