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
|
# $XConsortium: Text11.scr /main/6 1995/07/17 20:41:25 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
#
WindowRaise Shell1
# #) Traverse until Push Button 1 has focus.
LocatePointer bboard
# #) Type <Meta> Q. Push Button 2 should now enlarge by 20 pixels in
# width and height.
ClickKey <Meta> Kq
CompareVisual bboard
# C)
Continue
WindowRaise Shell1
# #) Traverse until the Text widget has focus.
LocatePointer bboard
ClickKey KTab
# #) Type <Meta> Q. Push Button 2 should now return to it's original size.
# /* test case for PIR 2162 */
ClickKey <Meta> Kq
CompareVisual bboard
# #) Click MB1 in the Text widget and leave the pointer where it is over the
# Text widget.
LocatePointer text1 RTextChar 10
ClickMB Btn1
# #) Type <Meta> Q. Push Button 2 should now enlarge again in width and
# height.
# /* end of test case for PIR 2162 */
ClickKey <Meta> Kq
CompareVisual bboard
# C)
Continue
# @) All three widgets have been destroyed and recreated. They should all
# appear as they did when the test first began.
# #) Click in the Text widget and then traverse until Push Button 1 has
# focus again.
LocatePointer text1 RTextChar 10
ClickMB Btn1
ClickKey <Ctrl> KTab
CompareVisual bboard
# #) Type <Meta> Q. The Text widget should scroll down one page of text, the
# Push Button 2 widget will remain unchanged.
ClickKey <Meta> Kq
CompareVisual bboard
# C)
Continue
# An editable text widget will appear along with a pushbutton labelled
# \"Add Callback\".
#
# Click MB1 in the text widget to give the text widget the focus.
# Enter some text into the text widget.
# Click MB1 on the \"Add Callback\" pushbutton. Verify that the message
# \"Add insert handler\" is printed to the terminal.
# Move the cursor back to the text widget and click MB1. Enter some more
# text in the text widget. Verify that the cursor is displayed while
# text is being entered.
LocatePointer EDITOR
ClickMB Btn1
InputString "Some text"
LocatePointer pushbutton
ClickMB Btn1
LocatePointer EDITOR
ClickMB Btn1
InputString "Even more text"
CompareVisual EDITOR
# C)
Continue
# Text has been cleared from the text widget and the font has been
# changed to "12x24".
#
# Click MB1 in the text widget and enter some new text.
# Click MB1 on the \"Add Callback\" pushbutton.
# Click MB1 in the text widget and add new text again.
# Move the cursor throughout the new text.
# Verify that the text does not get partically erased and that old
# insertion cursors do not remain throughout the text.
LocatePointer EDITOR
ClickMB Btn1
InputString "Some text"
LocatePointer pushbutton
ClickMB Btn1
LocatePointer EDITOR
ClickMB Btn1
InputString "Even more text"
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KRight
ClickKey KRight
ClickKey KRight
CompareVisual EDITOR
# C)
Continue
# E)
Exit
|
