#
# 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
#

#   $XConsortium: ToggleBtn5.scr /main/4 1995/07/13 17:33:25 drk $ 

#  Begin CR 5303 

# A bulletin board containing 4 toggle buttons is created.  The initial
# spacing (XmNspacing) is set to 4.  The purpose of the test is to make
# sure that reducing and increasing the spacing works.  This tests CR5303.

# First click MB1 on ToggleButton1.  The spacing should increase to 50.
# The spacing value for each button is printed on the calling xterm.

# Next click MB1 on ToggleButton2.  The spacing should DECREASE to 5.
# The spacing value for each button is printed on the calling xterm.   

# Next click MB1 on ToggleButton3.  The spacing should increase to 100.
# The spacing value for each button is printed on the calling xterm.

# Finally, click MB1 on ToggleButton4.  The spacing should DECREASE to 75.
# The spacing value for each button is printed on the calling xterm.

LocatePointer ToggleButton1
ClickMB Btn1
CompareVisual ToggleButton1
LocatePointer ToggleButton2
ClickMB Btn1
CompareVisual ToggleButton2
LocatePointer ToggleButton3
ClickMB Btn1
CompareVisual ToggleButton3
LocatePointer ToggleButton4
ClickMB Btn1
CompareVisual ToggleButton4
Continue

# End CR 5303

# A bulletin board containg 6 children is created, 1 ToggleButton, one
# Lable, and 4 PushButtons.  They are arranged in two rows of three.
# The top row contains the Toggle, Lable and one Pushbutton.  Clicking
# MB1 on the corresponding PushButton below will change the XmNy resource
# and move the children below the 'Move' PushButtons.  The children
# should NOT change size.  This test corresponds to CR 5163 (ToggleButton
# resizes to minimum when changing any resource).

# First click MB1 on "Move TglBtn1".  The "ToggleButton1" child should
# move below the "Move TglBtn1" PushButton but should NOT change size.

# Next, click MB1 on "Move PushBtn1".  The "PushButton1" child should
# move below the "Move PushBtn" PushButton but should NOT change size.

# Finally, click MB1 on "Move Lbl1".  The "Lable1" child should
# move below the "Move Lbl1" PushButton but should NOT change size.

LocatePointer PushButtonMove1
ClickMB Btn1
CompareVisual ToggleButton1
LocatePointer PushButtonMove2
ClickMB Btn1
CompareVisual PushButton1
LocatePointer PushButtonMove3
ClickMB Btn1
CompareVisual Label1
Continue

# End CR 5163

Exit