# $XConsortium: Navigation11.scr /main/4 1995/07/17 20:43:39 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
#!) This is a test of traversal behaviors.
#) A Bulletin Board contains a button, labeled NewerButton
#  and another bulletin board which contains Frame/Row Columns
#  with button and toggles, an arrowbutton, a single NewToggle
#  and a NewButton.  The default button is set to 3btn1.
  
#)  Check out the Tabbing behavior.  Tab should move from group
#  to group.  Note that NewButton cannot be Tabbed to.  It is 
#  within the NewToggle group and can be reached via KDown when 
#  focus is on NewToggle.  Also note that 3btn1 gets highlighted
#  whenever focus is *not* on a push button.
#C)
#E)

WindowMove InstructionBox 0 400

#focus is on NewerButton
#check visuals of default button and focus button

LocatePointer bb
CompareVisual rc3
CompareVisual NewerButton

#tab takes you to NewButton/NewToggle Pair
ClickKey KTab
CompareVisual NewToggle
CompareVisual btn31
ClickKey KRight
CompareVisual NewButton
CompareVisual btn31

#rc1
ClickKey KTab
#rc2
ClickKey KTab
#rc3
ClickKey KTab
ClickKey KRight
ClickKey KDown
ClickKey KDown
ClickKey KDown
ClickKey KSpace
CompareVisual rc3

#rc4
ClickKey KTab
#Draw 
ClickKey KTab
CompareVisual btn31

ClickKey <Shift> KTab
ClickKey <Shift> KTab

CompareVisual rc3

Continue
Exit