# $XConsortium: MenuBar3.scr /main/5 1995/07/17 20:26:39 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
# 

# 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