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