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