# $XConsortium: MenuGad1.scr /main/4 1995/07/17 20:26:45 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 client window will appear with a menu bar containing three
# cascade button gadgets, labeled "Menu1", "Menu2" and "Menu3".
# Each of these gadgets will have one character in its label
# underlined.
CompareVisual Shell1
# Move the pointer into the client window.
WindowFocus Shell1
# Press and hold MAlt, then press the '1' key. The
# pulldown menu "Menu1" will appear. The button gadget
# "pushbutton1" will appear raised.
ClickKey <Alt> K1
CompareVisual PullDown1
# Use the KDown and KUp to move between the three
# button gadgets in "Menu1".
ClickKey KDown
ClickKey KDown
ClickKey KUp
ClickKey KUp
CompareVisual PullDown1
# Press the 't' key. The pulldown menu will disappear.
ClickKey Kt
# Click MB1 on "Menu1". The same pulldown menu will appear,
# but there will be a filled square to the left of "toggle1".
LocatePointer Menu1
ClickMB Btn1
CompareVisual PullDown1
# Press the 't' key. The pulldown menu will disappear.
ClickKey Kt
Continue
# Move the pointer into the client window.
WindowFocus Shell1
# Press and hold MAlt, then press the '1' key. "Menu1
# will appear with NO filled box to the left of "toggle1".
ClickKey <Alt> K1
CompareVisual Menu1
# Press the 'c' key. "Menu1A" will appear.
ClickKey Kc
CompareVisual PullDown1A
# Press the return key. The pulldown menus will disappear.
ClickKey KReturn
# Press and hold KAlt, then press the '1' key. "Menu1
# will appear.
WindowFocus Shell1
ClickKey <Alt> K1
# Press the 'c' key. "Menu1A" will appear.
ClickKey Kc
CompareVisual PullDown1A
# Press the 'a' key. The pulldown menus will disappear.
ClickKey Ka
Continue
# Move the pointer into the client window.
WindowFocus Shell1
# Click MB1 on "Menu1". The pulldown menu "Menu1" will appear
LocatePointer Menu1
ClickMB Btn1
# Use the KRight and KLeft to move between the menus
# "Menu1", "Menu2" and "Menu3".
ClickKey KRight
ClickKey KRight
ClickKey KLeft
ClickKey KLeft
# Click MB1 on "Menu2". The pulldown menu "Menu2" will appear.
LocatePointer Menu2
ClickMB Btn1
# Press the 'c' key. The pulldown menu "Menu2A" will appear.
ClickKey Kc
CompareVisual PullDown2A
# Press the 'b' key. Both pulldown menus will disappear.
ClickKey Kb
CompareVisual MenuBar1
Continue
# Move the pointer into the client window.
WindowFocus Shell1
# Press and hold MAlt, then press the '2' key. The menu
# "Menu2" will appear.
ClickKey <Alt> K2
CompareVisual PullDown2
# Press KRight three times. The menus "Menu3",
# "Menu3A" and "Menu3AA" will appear.
ClickKey KRight
ClickKey KRight
ClickKey KRight
CompareVisual PullDown3AA
# Press KLeft. The menu "Menu3AA" will disappear.
ClickKey KLeft
# Press KDown twice. The button gadget "cascade3C
# will appear raised.
ClickKey KDown
ClickKey KDown
CompareVisual cascade3C
# Press KRight. The menu "Menu3CA" will appear.
ClickKey KRight
CompareVisual cascade3CA
# Press the return key. The menu "Menu3CAA" will appear.
ClickKey KReturn
CompareVisual PullDown3CAA
# Press KCancel. The menu "Menu3CAA" will disappear.
ClickKey KCancel
# Press KCancel three more times. All of the menus will
# disappear.
ClickKey KCancel
ClickKey KCancel
ClickKey KCancel
CompareVisual MenuBar1
Exit