# $XConsortium: Menu2.scr /main/6 1995/07/17 20:25:52 drk $
# 
# @OPENGROUP_COPYRIGHT@
# COPYRIGHT NOTICE
# Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc.
# Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group
# ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
# the full copyright text.
# 
# This software is subject to an open license. It may only be
# used on, with or for operating systems which are themselves open
# source systems. You must contact The Open Group for a license
# allowing distribution and sublicensing of this software on, with,
# or for operating systems which are not Open Source programs.
# 
# See http://www.opengroup.org/openmotif/license for full
# details of the license agreement. Any use, reproduction, or
# distribution of the program constitutes recipient's acceptance of
# this agreement.
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
# PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY
# WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
# OR FITNESS FOR A PARTICULAR PURPOSE
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
# NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT,
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
# AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
# ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
# EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGES.
# 
# 
# HISTORY
# 

# A client window will appear with four row column widgets.  The
#  first will contain four pushbuttons, the next two will each
#  contain two option menu widgets, and the fourth will contain a
#  toggle button, a push button and a menu bar.

CompareVisual Shell1

# Give focus to the client window. 

WindowFocus Shell1

# Select "button1" with MB1.  The button will be set insensitive.

LocatePointer button1
ClickMB Btn1
CompareVisual button1

#  The text on top of the button next to the label "OptionMenu1
#  (called the menu history) will change to read "option2a". 

CompareVisual option_menu1

# Click and hold down MB1 on the button next to the label
#  "OptionMenu2".  Note that the "3" in "option3b" is
#  underlined (indicating a mnemonic).  Release MB1. 

LocatePointer option_menu2 ROptionButton
PressMB Btn1
CompareVisual submenu2
ReleaseMB Btn1

# Select "button2" with MB1. 

LocatePointer button2
ClickMB Btn1

# Again click and hold down MB1 on the button next to the label
#  "OptionMenu2".  Note that the "3" in "option3b" is no
#  longer underlined. 
# Subsequent selections of button2 will alternate between the two
#  states described above. 

LocatePointer option_menu2 ROptionButton
PressMB Btn1
CompareVisual submenu2
ReleaseMB Btn1

Continue

# Give focus to the client window. 

WindowFocus Shell1

# Select "button3" with MB1.  The option menu "OptionMenu1" will
#   become insensitive. 

LocatePointer button3
ClickMB Btn1
CompareVisual option_menu1

# Again, select "button3" with MB1.  The option menu
#  "OptionMenu1" will be set sensitive. 

LocatePointer button3
ClickMB Btn1
CompareVisual option_menu1

# Select "button4" with MB1.  The button will be set insensitive.
#   The label for the option menu "OptionMenu4" will be changed to
#   "NewMenulabel". 

LocatePointer button4
ClickMB Btn1
CompareVisual option_menu4 RLabel

# Press and Hold MB1 on the Pixmap to the right of "NewMenuLabel". An
#  Option Menu should appear with two Pixmaps. Move the pointer into
#   the Smile Face Pixmap and release MB1. The Smile Face Pixmap should now
#   be in the Selection area for "NewMenuLabel". 

LocatePointer option_menu4 ROptionButton
PressMB Btn1
CompareVisual submenu4
LocatePointer option7u2
ReleaseMB Btn1
CompareVisual option_menu4
Continue

# Verify first that ToggleButton and PushButton are visually the same
#   size in height.  Then verify that the pulldown menu containing
#   gadgets and the pulldown containing widgets have entries which are
#   the same size in height.

CompareVisual rc
LocatePointer Buttons
ClickMB Btn1
CompareVisual menu1
ClickKey KCancel

LocatePointer Gadgets
ClickMB Btn1
CompareVisual menu2
ClickKey KCancel

Continue
Exit