# $XConsortium: PushBGad4.scr /main/6 1995/07/17 20:06:47 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 a MenuBar, a PushButton, and a PushButtonGadget all
#  contained in a Form will appear. The PushButtonGadget will have a CadetBlue
#  background, the same as the Form. The PushButton will have a
#  Maroon background. The MenuBar will contain a single CascadeButton
#  labeled "Cascade1". It's background color will be the default
#  background color. PushButton will be highlighted with an OrangeRed
#  highlight. 

CompareVisual Form1
Continue

# Click MB1 in the PushButtonGadget. The background color of the Form
#  and the PushButtonGadget should change to yellow. The background color
#  of the PushButton should not change. A Message to this effect will be
#  printed in the term window. 

# Click MB1 in the PushButton. The background color of the PushButton
#  should change to Green, but the background color of the form and
#  the PushButtonGadget should not change. A Message to this effect will
#  be printed in the term window. 

LocatePointer PBGadget1
ClickMB Btn1
CompareVisual Form1
LocatePointer PushB1
ClickMB Btn1
CompareVisual Form1
Continue

# Click MB1 in the Menubar on the "Cascade1" button. A Pulldown
#  menu should appear. It should contain three PushButtons. 

# Select the "Destroy PushButton" button. PushButton should disappear
#  and the highlight should now be on PushButtonGadget. 

# Select the "Destroy PushButtonGadget" button from the Menu.
#  PushButtonGadget should disappear and no highlight should be visible. 

# Select the "Destroy Form" button from the Menu. The Form should be
#  destroyed and an empty shell should be left. 

LocatePointer Cascade1
ClickMB Btn1
CompareVisual Pulldown1
LocatePointer PushButton1
ClickMB Btn1
CompareVisual Form1
LocatePointer Cascade1
ClickMB Btn1
LocatePointer PushButton3
ClickMB Btn1
CompareVisual Form1
LocatePointer Cascade1
ClickMB Btn1
LocatePointer PushButton2
ClickMB Btn1
CompareVisual Shell1

Exit