# $XConsortium: ToggleBtn2.scr /main/6 1995/07/17 20:07:41 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
#
# /* test for PIRS 2651 */
# This test confirms that ToggleButton widgets and gadgets locate the toggle
# indicators centered vertically regardless of the XmNlabelType
# of the toggle and the indicator size, when XmNindicatorOn is true.
# You should see 8 pairs of toggle buttons, alternatively text and pixmap,
# with the pairs each composed of a toggle widget and a toggle gadget.
# The first pair (string) should appear with a large indicator matched
# to the size of the font.
# Confirm that the indicator is centered vertically.
# The second pair (pixmap) should appear with a smaller indicator.
# Confirm that the indicator is centered vertically.
# The third pair (string) should appear without an indicator.
# The fourth pair (pixmap) should appear without an indicator.
# The fifth pair (string) should appear with a smaller indicator (of size 12).
# Confirm that the indicator is centered vertically.
# The sixth pair (pixmap) should appear with a smaller indicator (of size 12).
# Confirm that the indicator is centered vertically.
# The seventh pair (string) should appear without any indicator.
# The eighth pair (pixmap) should appear without any indicator.
CompareVisual Shell1
Continue
# Now click on each button. The XmNlabelType should change. Confirm that
# no widget suddenly adds an indicator where one should not be and that no
# indicator disappears.
# Also confirm that the indicator is centered vertically for those widgets in
# and gadgets in which it appears.
LocatePointer tb1
ClickMB Btn1
CompareVisual tb1
LocatePointer tbg1
ClickMB Btn1
CompareVisual tbg1
LocatePointer tb2
ClickMB Btn1
CompareVisual tb2
LocatePointer tbg2
ClickMB Btn1
CompareVisual tbg2
LocatePointer tb3
ClickMB Btn1
CompareVisual tb3
LocatePointer tbg3
ClickMB Btn1
CompareVisual tbg3
LocatePointer tb4
ClickMB Btn1
CompareVisual tb4
LocatePointer tbg4
ClickMB Btn1
CompareVisual tbg4
LocatePointer tb5
ClickMB Btn1
CompareVisual tb5
LocatePointer tbg5
ClickMB Btn1
CompareVisual tbg5
LocatePointer tb6
ClickMB Btn1
CompareVisual tb6
LocatePointer tbg6
ClickMB Btn1
CompareVisual tbg6
LocatePointer tb7
ClickMB Btn1
CompareVisual tb7
LocatePointer tbg7
ClickMB Btn1
CompareVisual tbg7
LocatePointer tb8
ClickMB Btn1
CompareVisual tb8
LocatePointer tbg8
ClickMB Btn1
CompareVisual tbg8
# Repeat to change them back. The main window should appear as it did
# initially.
LocatePointer tb1
ClickMB Btn1
CompareVisual tb1
LocatePointer tbg1
ClickMB Btn1
CompareVisual tbg1
LocatePointer tb2
ClickMB Btn1
CompareVisual tb2
LocatePointer tbg2
ClickMB Btn1
CompareVisual tbg2
LocatePointer tb3
ClickMB Btn1
CompareVisual tb3
LocatePointer tbg3
ClickMB Btn1
CompareVisual tbg3
LocatePointer tb4
ClickMB Btn1
CompareVisual tb4
LocatePointer tbg4
ClickMB Btn1
CompareVisual tbg4
LocatePointer tb5
ClickMB Btn1
CompareVisual tb5
LocatePointer tbg5
ClickMB Btn1
CompareVisual tbg5
LocatePointer tb6
ClickMB Btn1
CompareVisual tb6
LocatePointer tbg6
ClickMB Btn1
CompareVisual tbg6
LocatePointer tb7
ClickMB Btn1
CompareVisual tb7
LocatePointer tbg7
ClickMB Btn1
CompareVisual tbg7
LocatePointer tb8
ClickMB Btn1
CompareVisual tb8
LocatePointer tbg8
ClickMB Btn1
CompareVisual tbg8
Continue
# 20 toggle Buttons should appear with different background colors
# starting with yellow.
CompareVisual rc2
Continue
# The Row Column lays itself out horizontally and
# border width of each child grows.
# move the shell so it isn't obscured by Instruction panel
WindowMove InstructionBox 500 700
CompareVisual rc2
Continue
# The border width grows again.
# At some point, probably this panel or the next depending on your
# screen, the Row Column widget will wrap to the next line.
CompareVisual rc2
Continue
# The border width grows again.
# Each time you click on a toggle button, its border width grows
# and a message confirming the resize prints out.
WindowMove Shell1 0 300
CompareVisual rc2
LocatePointer tbtn8
ClickMB Btn1
LocatePointer tbtn2
ClickMB Btn1
WindowResize Shell1 SouthEast 400 400
LocatePointer tbtn3
ClickMB Btn1
CompareVisual rc2
Continue
Exit