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

# This is a simple test of toggle button behaviors. To toggle a 
#  toggle button, click anywhere on the label or on the indicator.  

# Click on ToggleButton1. The indicator should fill to show it is on.
# Toggle Button 1 uses a large font and its indicator is sized proportionally. 

# Press MB1 down on ToggleButton1, then move outside the window and release
# the button. The toggle indicator will change when you press the button 
# and should revert when you move outside the window. 

# Move the pointer back over ToggleButton1, and use both the return key and
# the space bar to toggle the indicator. 

LocatePointer ToggleButton1
ClickMB Btn1
CompareVisual ToggleButton1
CompareVisual Manager1
PressMB Btn1
LocatePointer ToggleButton1 Off
ReleaseMB Btn1
CompareVisual ToggleButton1
CompareVisual Manager1
LocatePointer ToggleButton1
ClickKey KSpace
CompareVisual ToggleButton1
CompareVisual Manager1
ClickKey KReturn
CompareVisual ToggleButton1
CompareVisual Manager1
Continue

# Move the pointer over ToggleButton2. Toggle the toggle button using either 
# the mouse or the keyboard, as you did with ToggleButton1. The indicator 
# should not fill with a new color, but the top and bottom shadows 
# should change.

# Leave this button ON before you continue
# It should remain highlighted for the remainder of the test. 

LocatePointer ToggleButton2
ClickMB Btn1
CompareVisual ToggleButton2
CompareVisual Manager1
Continue

# ToggleButton3 should show no indicator. Toggle it, and the indicator will appear. 

LocatePointer ToggleButton3
CompareVisual ToggleButton3
CompareVisual Manager1
ClickMB Btn1
CompareVisual ToggleButton3
CompareVisual Manager1
Continue

# ToggleButton4 should already appear ON. You can manipulate it normally. 
# ToggleButton5 contains a pixmap instead of a label. When you toggle the
#   toggle button, the pixmap will change. 

LocatePointer ToggleButton4
CompareVisual ToggleButton4
CompareVisual Manager1
ClickMB Btn1
CompareVisual ToggleButton4
CompareVisual Manager1
LocatePointer ToggleButton5
CompareVisual ToggleButton5
CompareVisual Manager1
ClickMB Btn1
CompareVisual ToggleButton5
CompareVisual Manager1
Continue

# ToggleButton6 has no indicator. When you toggle it, the shadows should change 
#  so that it appears depressed. Press again and it will revert. 

LocatePointer ToggleButton6
CompareVisual ToggleButton6
CompareVisual Manager1
ClickMB Btn1
CompareVisual ToggleButton6
CompareVisual Manager1
ClickMB Btn1
CompareVisual ToggleButton6
CompareVisual Manager1
Continue

# ToggleButton5 should now be toggled to the ON position (smiley face). 

CompareVisual ToggleButton5
CompareVisual Manager1
Continue

# ToggleButton5 should now be toggled to the OFF position (circles). 

CompareVisual ToggleButton5
CompareVisual Manager1
Continue

# The background of ToggleButton5 will change to be a smiley face
# pixmap 

CompareVisual ToggleButton5
CompareVisual Manager1
Continue

# The background of ToggleButton5 will change back to the default
# background color. 

CompareVisual ToggleButton5
CompareVisual Manager1
Continue

# The background of Manager has been specified as None. This should not
# result in protocol error.

CompareVisual ToggleButton5
CompareVisual Manager1
Continue

Exit