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
|
# $XConsortium: Text6.scr /main/6 1995/07/17 20:42:08 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
#
# /* test case for PIR 3677 */
# @) The test window shows two text widgets in a Paned Window.
# Note that the Shell window size is 400W x 300H, and
# the top Text widget is one row high while the second fills the
# rest of the Shell window size.
# /* end of test case for PIR 3677 */
CompareVisual Shell1
# Give focus to the test client window.
# The focus should be at the start of the text in Text1.
# Press the Tab key twice. Focus should be in Text2.
# Type the word 'The' and a space. The string should read \"The Sample Text2\".
# After you press continue, the test will verify the contents of
# Text2 and print out an error message if CR xxxx is still present.
LocatePointer Text1 RTextChar 0
DragComponent Text1 RTextChar 4 Btn2
ClickKey KTab
ClickKey KTab
InputString "The "
Continue
#) Check the results of the previous panel for an error message.
#) If this test failed, the results for the
# remainder of this test will most likely be corrupted.
# You may wish to rerun the test and skip the MB2 Drag on Panel 1.
Continue
# #) Move the pointer into the top text widget and click MB1.
# The insertion cursor should appear.
LocatePointer Text1 RTextChar 5
ClickMB Btn1
# #) Press the return key. The text should change to
# "The <Return> Key was pressed." and a message indicating the
# callback reason should appear in the stdout window.
ClickKey KReturn
CompareVisual Text1
# C)
Continue
# #) Move the pointer into the bottom text widget and click MB1.
# The insertion cursor should appear.
LocatePointer Text2 RTextChar 5
ClickMB Btn1
CompareVisual Text2
# #) Press the return key. A newline is inserted but the message should not
# change.
ClickKey KReturn
CompareVisual Text2
# C)
Continue
# #) Put the pointer into the bottom text widget and press <Ctrl> r. The text
# in the bottom widget should change to "Changed the string.".
# (Note that the bottom text widget will not get a focus highlight or
# respond to any other keystrokes. The only tranlation it currently
# recognizes is <Ctrl> r.)
LocatePointer Text2 RTextChar 7
ClickKey <Ctrl> Kr
CompareVisual Text2
# C)
Continue
# #) Click MB1 in the top text widget.
LocatePointer Text1 RTextChar 5
ClickMB Btn1
# /* test case for PIR 1772, PIR 1058 */
# #) Type some text.
# For each character typed, messages indicating the callback reasons
# should appear in the stdout window.
# You should see "XmCR_MODIFYING_TEXT_VALUE" before
# "XmCR_VALUE_CHANGED".
InputString "new"
# #) Select text elsewhere in the text widget.
# Click MB2 to paste the text.
# Messages indicating the callback reasons should appear in the
# stdout window.
# You should see "XmCR_MODIFYING_TEXT_VALUE" before
# "XmCR_VALUE_CHANGED".
# /* end of test case for PIR 1772, PIR 1058 */
LocatePointer Text1 RTextChar 10
DragComponent Text1 RTextChar 15
LocatePointer Text1 RTextChar 2
ClickMB Btn2
# C)
Continue
# /* Begin CR 6141 */
# Click MB1 on the pushbutton labelled \"Set String\" to add text into the text
# widget.
# Move the insertion cursor to position 3, which is immediately after the
# word \"New\".
# Click MB1 on the pushbutton labelled \"Insert\" which will insert new
# text at position 3.
# Verify that the insertion cursor moved to the end of the newly
# inserted text.
# /* End CR 6141 */
LocatePointer SetStringPB
ClickMB Btn1
LocatePointer Text1 RTextChar 3
ClickMB Btn1
LocatePointer InsertStringPB
ClickMB Btn1
CompareVisual Text1
# C)
Continue
# E)
Exit
|
