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