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
|
# $XConsortium: ScrollText1a.scr /main/4 1995/07/17 20:40:12 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
# #) This ScrolledText widget was created with its layout direction set
# as Right-to-Left. The vertical scrollbar should appear to the left of
# the text and the horizontal scrollbar should be flushed to the right.
# #) Click MB1 anywhere in the text widget.
LocatePointer Text1
# #) Press the sequence Shift-osfPageDown, and the text will change.
ClickKey <Shift> KPageDown
CompareVisual Text1
# #) Press the sequence Shift-osfPageDown again and the text will change back.
ClickKey <Shift> KPageDown
CompareVisual Text1
# C)
Continue
# #) Place the pointer in the text widget again, and press the Help key.
# An information box will appear. Press the Dismiss button.
LocatePointer Text1
ClickKey KHelp
CompareVisual info_box
LocatePointer info_box ROkButton
ClickMB Btn1
# C)
Continue
# /* test case for PIR 2574 */
# #) Give the text window the focus. Click MB1 after the last word in the
# text widget.
LocatePointer Text1
ClickMB Btn1
ClickKey KEndData
# #) Type in ten lines of lines of new text. The scrollbar slider should be
# at the bottom of the trough.
ClickKey KReturn
InputString "line 1"
ClickKey KReturn
InputString "line 2"
ClickKey KReturn
InputString "line 3"
ClickKey KReturn
InputString "line 4"
ClickKey KReturn
InputString "line 5"
ClickKey KReturn
InputString "line 6"
ClickKey KReturn
InputString "line 7"
ClickKey KReturn
InputString "line 8"
ClickKey KReturn
InputString "line 9"
ClickKey KReturn
InputString "line 10"
CompareVisual Text1
# #) Iconify and deiconify the window or otherwise cause it to be re-exposed.
WindowIconify Shell1
WindowDeiconify Shell1
# #) Confirm that the location of the text does not change within the window.
# /* end of test case for PIR 2574 */
CompareVisual Text1
# C)
Continue
# /* test case for PIR 2127 */
# @) The text widget should now be displayed in the "variable" font
# and the string should have changed.
CompareVisual Text1
# #) Click MB1 just before any of the j's in the string and type a
# few spaces. Verify that no pieces of the character glyphs remain
# where the spaces now are.
# /* end of test case for PIR 2127 */
LocatePointer Text1 RTextChar 11
ClickMB Btn1
InputString " "
CompareVisual Text1
# /* test case for PIR 4120 */
# C)
Continue
# @) The text widget has been destroyed and recreated. It was created as a
# Scrolled Text widget with editMode == XmSINGLE_LINE_EDIT, rows == 3.
# #) Confirm that there is no vertical scrollbar present.
CompareVisual BBoard1
# #) Click on the togglebutton to switch the EditMode to
# XmMULTI_LINE_EDIT. Confirm that a vertical scrollbar is generated.
# Use the vertical scrollbar to scroll through the text.
LocatePointer ToggleB1
ClickMB Btn1
CompareVisual BBoard1
LocatePointer Text2 RVertScrollBarSlider
DragSliderValue Down Max
CompareVisual BBoard1
DragSliderValue Up Min
CompareVisual BBoard1
# #) Click on the togglebutton again to switch the EditMode back to
# XmSINGLE_LINE_EDIT. The vertical scrollbar should disappear and the text
# widget should return to only displaying 1 line.
LocatePointer ToggleB1
ClickMB Btn1
CompareVisual BBoard1
# /* end of test case for PIR 4120 */
# E)
Exit
|
