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
|
# $XConsortium: SelectBox2.scr /main/6 1995/07/17 20:38:23 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
#
# OSF/Motif: @(#)SelectBox2.scr 1.2 92/01/28
# This test tests the capabilities of the selection box which layout
# its non-standard children.
# A selection box should appear, with a menubar, drawing area with text,
# standard control buttons, plus an additional pushbutton, toggle button,
# arrow button and drawn button.
WindowRaise Shell1
LocatePointer sbox
CompareVisual sbox
# The message area (drawing area with the text message) should appear
# below the selection area.
# Verify that the buttons are all approximately the same height and width.
# They should appear of uniform size.
# Select Carl. Press KReturn. A message about Carl should appear in
# the middle text region.
LocatePointer sbox RSelectionListItem 3
ClickMB Btn1
ClickKey KReturn
CompareVisual label1
# Select Cascade1. A pulldown menu should appear. Press KRight.
# Cascade2 should highlight and its pulldown menu should appear.
LocatePointer Cascade1
ClickMB Btn1
CompareVisual Pulldown1
ClickKey KRight
CompareVisual Pulldown2
ClickKey KCancel
# C)
Continue
WindowRaise Shell1
# Select the toggle button No men. The names Thomas, Roger and Carl
# should disappear from the list. Now select the toggle again. Thomas,
# Roger and Carl should be reinserted into the list.
LocatePointer NoMen
ClickMB Btn1
CompareVisual sbox
ClickMB Btn1
CompareVisual sbox
# Select list item Roger. Select OK. A message about Roger should appear
# in the middle text region.
LocatePointer sbox RSelectionListItem 2
ClickMB Btn1
LocatePointer sbox ROkButton
ClickMB Btn1
CompareVisual label1
# Select the up arrow button. Highlight in the list should now be on Thomas.
# Press KReturn. A message about Thomas should appear in the middle text
# region.
LocatePointer arrowButton
ClickKey KReturn
CompareVisual label1
#) Select "Susan".
LocatePointer sbox RSelectionListItem 4
ClickMB Btn1 2
CompareVisual label1
# Select "Select the Manager". Highlight in the list should now be back
# on "Libby".
LocatePointer drawnbutton
ClickMB Btn1
CompareVisual label1
# Select "Reset Text". The middle text region should contain a statement
# about what the region is used for.
LocatePointer sbox RCancelButton
ClickMB Btn1
CompareVisual label1
# C)
Continue
WindowRaise Shell1
# The message area should appear above the selection area.
CompareVisual sbox
WindowRaise Shell1
# C)
Continue
WindowRaise Shell1
# The message area should appear below the selection area.
CompareVisual sbox
# C)
Continue
WindowRaise Shell1
# The message area should have moved to the top of the selection box.
CompareVisual sbox
# C)
Continue
WindowRaise Shell1
# E)
Exit
|
