# $XConsortium: OptionMenu3.scr /main/7 1995/07/17 20:27:02 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
# 

# OSF/MOTIF @(#)OptionMenu3.scr	1.3 92/02/07

# A client window containing a RowColumn widget with nine OptionMenu
#  children will appear.  The window will be located 300 pixels down
#  from the top left corner of the display.  Click on the buttons
#  labelled 'Himalayan', 'Siamese', and 'Exotic Shorthair' and
#  you'll see the same (shared) menu pane.
#     Note: there should be no warning messages in the xterm window. 

WindowRaise Shell1
CompareVisual RC

# When you select one of the choices in any shared menu, the shadow
#  of its corresponding CascadeButton will increase.  Also, the font
#  of the label will change to '8x13bold', a larger, bold font. 

LocatePointer OptionMenu0 ROptionButton
PressMB Btn1
LocatePointer PushBtn3
ReleaseMB Btn1

LocatePointer OptionMenu1 ROptionButton
PressMB Btn1
LocatePointer PushBtn3
ReleaseMB Btn1

LocatePointer OptionMenu2 ROptionButton
PressMB Btn1
LocatePointer child2
ReleaseMB Btn1

LocatePointer OptionMenu5 ROptionButton
PressMB Btn1
LocatePointer PushBtn3
ReleaseMB Btn1


# Verify the graphic to the right of the text is the same in each
#  Option Button. It should be a small, shadowed square
#  (example: the button next to \"Domestic Shorthair\". 

WindowRaise Shell1
CompareVisual RC

# Use the up and down arrow keys to traverse between the OptionMenus. You 
#  should go up and down within the columns.

# Get Focus to First OptionMenu

LocatePointer OptionMenu0 ROptionButton
PressMB Btn1
ReleaseMB Btn1

ClickKey KDown
ClickKey KDown
ClickKey KDown
ClickKey KUp
ClickKey KUp
ClickKey KUp
ClickKey KRight
ClickKey KDown
ClickKey KDown
ClickKey KDown
ClickKey KUp
ClickKey KUp
ClickKey KUp

CompareVisual RC

# Use the left and right arrow keys to traverse across the rows.

ClickKey KRight
ClickKey KLeft
ClickKey KRight
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KRight

CompareVisual RC

Continue

# An option menu in a row column should appear with three push buttons.
# Press MB1 on the option menu selection area.  Move the pointer to item1
#  and release.

WindowRaise Shell1
LocatePointer option ROptionButton
PressMB Btn1 
LocatePointer item1
ReleaseMB Btn1
CompareVisual rc

# Click MB1 on LARGER. This will make the size of the push button bigger, 
#  as well as its parent, the rowcolumn.

LocatePointer LARGER
ClickMB Btn1
CompareVisual rc

# Select item1 from the option menu again.  The rowcolumn should not change
#  size.

LocatePointer option ROptionButton
PressMB Btn1 
LocatePointer item1
ReleaseMB Btn1
CompareVisual rc

Continue

# Two option menus should appear.  Verify that both option menus
#  can be selected.   Each has 3 entries.

WindowRaise Shell1
LocatePointer option_menu1 ROptionButton
PressMB Btn1
LocatePointer option1b
ReleaseMB Btn1

LocatePointer option_menu2 ROptionButton 
PressMB Btn1
LocatePointer option2c
ReleaseMB Btn1
CompareVisual rc
Continue

# Be sure that clicking MB1 in the selection area of the option menu
#   posts the menu.

LocatePointer option_menu1 ROptionButton
ClickMB Btn1
CompareVisual option1b
LocatePointer option_menu1 Off
ClickMB Btn1

# The height of the button gadget in the first option menu has been changed 
#  to 80.  Verify that the height appears correct and that each option menu
#  can be selected and displays their three entries correctly.

CompareVisual rc
LocatePointer option_menu1 ROptionButton
PressMB Btn1
CompareVisual pulldown1
ReleaseMB Btn1
LocatePointer option_menu2 ROptionButton
PressMB Btn1
CompareVisual pulldown2
ReleaseMB Btn1

CompareVisual rc

Exit