# $XConsortium: SelectBox2.scr /main/6 1995/07/17 20:38:23 drk $
# 
# @OPENGROUP_COPYRIGHT@
# COPYRIGHT NOTICE
# Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc.
# Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group
# ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
# the full copyright text.
# 
# This software is subject to an open license. It may only be
# used on, with or for operating systems which are themselves open
# source systems. You must contact The Open Group for a license
# allowing distribution and sublicensing of this software on, with,
# or for operating systems which are not Open Source programs.
# 
# See http://www.opengroup.org/openmotif/license for full
# details of the license agreement. Any use, reproduction, or
# distribution of the program constitutes recipient's acceptance of
# this agreement.
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
# PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY
# WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
# OR FITNESS FOR A PARTICULAR PURPOSE
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
# NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT,
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
# AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
# ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
# EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGES.
# 
# 
# HISTORY
# 

# OSF/Motif: @(#)SelectBox2.scr	1.2  92/01/28

# This test tests the capabilities of the selection box which layout
# its non-standard children.
# A selection box should appear, with a menubar, drawing area with text,
# standard control buttons, plus an additional pushbutton, toggle button,
# arrow button and drawn button.

WindowRaise Shell1
LocatePointer sbox
CompareVisual sbox

# The message area (drawing area with the text message) should appear
# below the selection area.

# Verify that the buttons are all approximately the same height and width.
# They should appear of uniform size.

# Select Carl.  Press KReturn.  A message about Carl should appear in 
# the middle text region.

LocatePointer sbox RSelectionListItem 3
ClickMB Btn1
ClickKey KReturn
CompareVisual label1

# Select Cascade1.  A pulldown menu should appear.  Press KRight.  
# Cascade2 should highlight and its pulldown menu should appear.

LocatePointer Cascade1
ClickMB Btn1
CompareVisual Pulldown1
ClickKey KRight
CompareVisual Pulldown2
ClickKey KCancel

# C)

Continue

WindowRaise Shell1

# Select the toggle button No men.  The names Thomas, Roger and Carl
# should disappear from the list.  Now select the toggle again.  Thomas,
# Roger and Carl should be reinserted into the list.

LocatePointer NoMen
ClickMB Btn1

CompareVisual sbox

ClickMB Btn1
CompareVisual sbox

# Select list item Roger.  Select OK.  A message about Roger should appear
# in the  middle text region.

LocatePointer sbox RSelectionListItem 2
ClickMB Btn1
LocatePointer sbox ROkButton 
ClickMB Btn1

CompareVisual label1

# Select the up arrow button.  Highlight in the list should now be on Thomas.
# Press KReturn.  A message about Thomas should appear in the middle text
# region.

LocatePointer arrowButton
ClickKey KReturn
CompareVisual label1

#) Select "Susan".

LocatePointer sbox RSelectionListItem 4
ClickMB Btn1 2
CompareVisual label1

# Select "Select the Manager".  Highlight in the list should now be back 
# on "Libby".

LocatePointer drawnbutton
ClickMB Btn1
CompareVisual label1

# Select "Reset Text".  The middle text region should contain a statement
# about what the region is used for.

LocatePointer sbox RCancelButton
ClickMB Btn1
CompareVisual label1

# C)

Continue

WindowRaise Shell1

# The message area should appear above the selection area.

CompareVisual sbox

WindowRaise Shell1

# C)

Continue

WindowRaise Shell1

# The message area should appear below the selection area.

CompareVisual sbox

# C)

Continue

WindowRaise Shell1

# The message area should have moved to the top of the selection box.

CompareVisual sbox

# C)

Continue

WindowRaise Shell1

# E)

Exit