# $XConsortium: RowCol2.scr /main/4 1995/07/17 20:28:25 drk $
# @OPENGROUP_COPYRIGHT@
# COPYRIGHT NOTICE
# Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc.
# Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group
# ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
# the full copyright text.
# 
# This software is subject to an open license. It may only be
# used on, with or for operating systems which are themselves open
# source systems. You must contact The Open Group for a license
# allowing distribution and sublicensing of this software on, with,
# or for operating systems which are not Open Source programs.
# 
# See http://www.opengroup.org/openmotif/license for full
# details of the license agreement. Any use, reproduction, or
# distribution of the program constitutes recipient's acceptance of
# this agreement.
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
# PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY
# WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
# OR FITNESS FOR A PARTICULAR PURPOSE
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
# NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT,
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
# AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
# ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
# EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGES.
#
# 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