# $XConsortium: MenuBar3.scr /main/5 1995/07/17 20:26:39 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 main window with a menubar appears with two pulldown menus.  

# Verify that PIR 1851 works "If a menu mnemonic is the same as the mnemonic
#  of the posting cascade button, the post gets cancelled", by pressing
#  KMenuBar to get focus to the menubar. Then type 's'.  The pulldown
#  menu 'Stuff' should post.

WindowFocus Shell1

ClickKey KMenuBar
ClickKey Ks

CompareVisual pd2

# Now type 's' again.  Pulldown menu item 'something' should be selected.
#  To verify this, "Doin Something" should appear in the xterm window.

ClickKey Ks

ClickKey KCancel

Continue

# Verify that multiple accelerator modifiers work correctly.  Pulldown
#  Stuff has two pushbuttons which have multiple modifiers.  With the
#  focus in the window, type <Ctrl><Shift>s.  'Doin Something' should
#  appear in the term window.

WindowFocus Shell1
ClickKey <Ctrl><Shift> Ks

# Type <Shift><Ctrl>n.  'Doin Nothing' should appear in the term window.

Continue

WindowFocus Shell1
ClickKey <Shift><Ctrl> Kn

# Verify that focus appears correctly in pulldown menus which have one
#  entry.  Use KMenuBar to get focus to the menubar.  Type KRight to
#  move focus to 'Stuff'.  Type KDown to post the Pulldown menu.  Focus
#  (highlight) should appear on the 'Nothing' pulldown menu.  Now type KLeft 
#  to move focus to the pulldown menu Commands.  Focus should appear around
#  'Exit'.  

WindowFocus Shell1
ClickKey KMenuBar
ClickKey KRight
ClickKey KDown

CompareVisual pd2

ClickKey KUp

ClickKey KLeft

CompareVisual mb

# Type KRight to move focus back to the other pulldown menu.  'Nothing'
#  should be highlighted.

ClickKey KRight

CompareVisual pd1
CompareVisual mb

# Type KCancel to unpost the menu.

ClickKey KCancel

Continue

Exit