File: RowCol2.scr

package info (click to toggle)
motif 2.3.4-13
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 81,160 kB
  • ctags: 51,769
  • sloc: ansic: 596,938; cpp: 3,951; yacc: 2,854; makefile: 2,070; csh: 1,199; sh: 1,070; lex: 455
file content (179 lines) | stat: -rw-r--r-- 4,848 bytes parent folder | download | duplicates (3)
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
# $XConsortium: RowCol2.scr /main/4 1995/07/17 20:28: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

# A client window will appear containing six regions of which five
#  are tab groups. 

CompareVisual frame0

# Move the pointer into the client window and press the tab key
#  five times.  You will see the focus move to the first widget in
#  each of the first five regions.  The last widget, which contains
#  the string "I can't take the focus", cannot be reached by using
#  the tab key. 

WindowFocus Shell1
ClickKey KTab
CompareVisual outer
ClickKey KTab
CompareVisual outer
ClickKey KTab
CompareVisual outer
ClickKey KTab
CompareVisual outer
ClickKey KTab
CompareVisual outer
Continue

# Press the tab key until the focus is back in the top region.  The
#  "grow" button will be highlighted. 

LocatePointer rc1

# Press the return key and the window will grow.  In each region,
#  the rightmost column of widgets will grow to fill the window. 

ClickKey KReturn
CompareVisual outer

# Press the down arrow key to move to the "shrink" button, and
#  press the space key to activate it.  The window will grow smaller
#  and the rightmost column of widgets widgets will shrink to fit in
#  the window. 

ClickKey KDown
ClickKey KSpace
CompareVisual outer

# Press the down arrow key again to move to the "unmap" button
#  and press the return key to activate it.  The "blueButton
#  button in the third region will disappear. 

ClickKey KDown
ClickKey KReturn
CompareVisual outer

# Use the down arrow key to move to the "map" button and activate
#  that button to restore "blueButton".

ClickKey KDown
ClickKey KReturn
CompareVisual outer

# In each region, the up and down arrow keys will move you between
#  all of the widgets in that region.  For the rest of this test,
#  use the up and down arrow keys when you are instructed to move to
#  another button. 

Continue

# Tab to the second region, the paned window, and move between the
#  panes. 

LocatePointer frame1
ClickKey KTab
ClickKey KDown
ClickKey KDown
ClickKey KDown
ClickKey KUp

# Tab to the third region.  Move through the buttons.  All of the
#  buttons should be accessible, except the for one marked
#  "not Traversable". 

ClickKey KTab
ClickKey KDown
CompareVisual frame3
ClickKey KDown
CompareVisual frame3
ClickKey KDown
CompareVisual frame3
ClickKey KDown
CompareVisual frame3
ClickKey KDown
CompareVisual frame3

# Activate the button labeled "toggleTraversal".  The label will
#  change to "TraversalOff".  Move among the buttons.  The first
#  and fifth buttons will both be unreachable. 

LocatePointer toggleTraversal
ClickMB Btn1
ClickKey KDown
CompareVisual frame3
ClickKey KDown
CompareVisual frame3
ClickKey KDown
CompareVisual frame3

Continue

# Press the "destroyMe" button.  This button will disappear, and
#  the rest of the buttons in the region will rearrange themselves
#  to fill in the gap. 

LocatePointer destroyMgr
ClickMB Btn1
CompareVisual rc2

# Move to the "sensitivity" button and activate it.  This
#  button's label will change to "Make Blue Button Sensitive".

LocatePointer sensitivity
ClickMB Btn1
CompareVisual rc2

#  The label on "blueButton" will change.  Move among the buttons.
#  You will not be able to traverse to "blueButton". 

ClickKey KDown
ClickKey KDown
ClickKey KDown
ClickKey KDown
ClickKey KDown
ClickKey KDown
CompareVisual rc2

# Activate the "Change Tab Group" button.  This button's label
#  will change to "Add TabGroup".  The third region will
#  be removed from the list of tab groups.  The focus will move to
#  the next region, and you will not be able to reach the third
#  region with the tab key.

LocatePointer Change_Tab_Group
ClickMB Btn1
ClickKey KTab
CompareVisual outer

# Move to the fifth region, the "destroyMgr" button.  Activate
#  this button, and the paned window (region 2) will be destroyed.
#  This button's label will be changed to "Create Paned Window". 

# Press the "Create Paned Window" button.  The paned window will
#  be recreated. 

Exit