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

# 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