# $XConsortium: PopupMenu1.scr /main/6 1995/07/17 20:27:27 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 with CascadeButton labeled "Select Me" will appear. 

CompareVisual SelectMe

# Press Alt<Key>KRight. The Popup menu should post. Press escape. 
# The menu should unpost. 

WindowFocus Shell1
ClickKey <Alt> KRight
ClickKey KCancel
CompareVisual SelectMe

# Press and hold down MB3 in the client window.  A PulldownMenu
#  labeled "Menu1" will appear. 

LocatePointer SelectMe
PressMB Btn3
CompareVisual popMenu

# Drag the pointer down to "PushButton1".  "PushButton1" will
#  appear raised. 

LocatePointer PushButton1
CompareVisual PushButton1

# Drag the pointer down to "Toggle1".  "Toggle1" will appear
#  raised. 

LocatePointer Toggle1
CompareVisual Toggle1

# Release MB3.  The PulldownMenu will disappear. 

ReleaseMB Btn3

Continue

# Press and hold down MB3 in the client window.  The PulldownMenu
#  will appear with a filled square to the left of "Toggle1". 

LocatePointer SelectMe
PressMB Btn3
CompareVisual popMenu

# Drag the pointer down to "Toggle1" and release MB3.  The
#  PulldownMenu will disappear. 

LocatePointer Toggle1
ReleaseMB Btn3

Continue

# Press and hold down MB3 in the client window.  The PulldownMenu
#  will appear with NO filled sqaure to the left of "Toggle1". 

LocatePointer SelectMe
PressMB Btn3
CompareVisual popMenu

# Drag the pointer down to "Cascade1".  A second PulldownMenu
#  labeled "Menu2" will appear. 

LocatePointer Cascade1 
CompareVisual Pulldown2

# Drag the pointer down to "Cascade2".  A third PulldownMenu
#  labeled "Menu3" will appear. 

LocatePointer Menu2
LocatePointer Cascade2
CompareVisual PullDown3

# Drag the pointer down to "Cascade3".  A fourth PulldownMenu
#  labeled "Menu4" will appear.  It will be empty. 

LocatePointer Menu3
LocatePointer Cascade3
CompareVisual PullDown4

# Drag the pointer into "Menu4" and release MB3.  All
#  PulldownMenus will disappear. 

LocatePointer Menu4
ReleaseMB Btn3
Continue

# Press and hold down MB3 in the client window.  The PulldownMenu
#  "Menu1" will appear. 

# Drag the pointer down to "Cascade1" and release MB3. 

LocatePointer SelectMe
PressMB Btn3
LocatePointer Cascade1
ReleaseMB Btn3

# Press the down arrow key once.  "Cascade2" will appear raised. 

ClickKey KDown
CompareVisual Cascade2

# Press the right arrow key once.  "Menu3" will appear. 

ClickKey KRight
CompareVisual Menu3

# Press the return key.  "Menu4" will appear. 

ClickKey KReturn
CompareVisual PullDown4

# Press the escape key.  "Menu4" will disappear. 

ClickKey KCancel

CompareVisual Menu3

# Move the pointer into the "Select Me" window and click MB3.
#  All menus will disappear. 

LocatePointer SelectMe
ClickMB Btn3
CompareVisual SelectMe

Exit