# $XConsortium: ToggleBGad4.scr /main/6 1995/07/17 20:07:23 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
# 

# The toggle buttons in this test are part of the same tab group.  Put 
# the pointer over the top toggle button. Press the space bar to activate it.
# The pixmap changes and the indicator fills. 

LocatePointer TButton1
ClickKey KSpace
CompareVisual TButton1

# C)

Continue


# Press the down arrow key twice so Toggle 3 is highlighted. 

LocatePointer TButton1
ClickKey KDown
ClickKey KDown

# Hit the spacebar key (in Toggle 3). A new button will appear. 
# Its highlightThickness will be 4. 

ClickKey KSpace
CompareVisual PanedWindow1

# Resize the window larger so you can see the entire button label. 

WindowResize Shell1 SouthEast 300 200
CompareVisual PanedWindow1

# C)

Continue

# Hit the tab key to move to the More Widgets... button. 

LocatePointer TButton3
ClickKey KTab

# Hit the spacebar key, and two things should happen:  The button's label
# changes to Toggle Gadget States and Toggle Widgets 1 and 2 appear in 
# a new pane. Toggle Widget 2 will have a highlightThickness of 4. 

ClickKey KSpace
CompareVisual StateButton1

# The push button will now reset the state of the toggle buttons in 
# the top pane. Use the spacebar key to activate the button.
# Each time you press the Toggle States button, the toggle buttons which
# were ON will switch OFF and vice-versa. 

CompareVisual WidgetRC
ClickKey KSpace
CompareVisual TButton3
ClickKey KSpace
CompareVisual TButton2

# C)

Continue


# Hit the tab key twice to get to the bottom pane. Press the down arrow
# key and use the spacebar key to depress the Toggle Widget 2 button. 

LocatePointer TButton3
ClickKey KTab
ClickKey KTab
ClickKey KDown
ClickKey KSpace
CompareVisual ToggleW2

# Use the up arrow key to return to Toggle Widget 1. Hit the spacebar key. 

ClickKey KUp
ClickKey KSpace
CompareVisual StateButton2

# A new button called Toggle Widget States... has appeared. 

CompareVisual StateButton2

# Hit the Shift-tab key to reach the bottom pane. You can
# use this button to toggle the states of the widgets in the 
# pane just above it, as you did earlier. 

ClickKey <Shift> KTab
ClickKey KSpace
CompareVisual ToggleW1

# C)

Continue
	
# E)

Exit