# $XConsortium: ComboBox4a.scr /main/4 1995/07/17 20:08:56 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

# A ComboBox of the type COMBO_BOX is displayed. This type of ComboBox
# always displays its list. Verify that a List is displayed with 20
# visible items.
# The spacing between list items should be 5.
# The height and width of the margin between the list border and the 
# items should be 2.
# Click on the 2nd item in the list. That item should be displayed in
# the edit box.

CompareVisual ComboBox
LocatePointer List RListItem 1
ClickMB Btn1
CompareVisual ComboBox

Continue

#  The cursor of the TextField widget should be at position 5.
#  Try typing in the TextField widget.
#  The margin height and margin width should both be 20. (space between the
#  4 sides of the window and the text).
#  As you keep typing, the TextField widget should grow horizontally to
#  accomodate the text.

LocatePointer Text
ClickMB Btn1
InputString "This Is A Very Long String"
CompareVisual ComboBox
Continue

# A new item, "ExtraItem" should have been added to the end of the List.
# Scroll down to the end of the List to verify that this is the
# last item.
# Select this item. The TextField should update and display \"ExtraItem\".


LocatePointer List RVertScrollBarDownArrow
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
CompareVisual ComboBox
LocatePointer List RListItem 19 
ClickMB Btn1
CompareVisual ComboBox

Continue

#  This panel tests the XmComboBoxUpdate function.
#  The selected item should change to be "Item1", and this is
#  the item that should be displayed in the edit box.  "Item1" has been
#  selected using XmListSelectionItem, and XmComboBoxUpdate should
#  bring the ComboBox in sync with the new selected item.

CompareVisual ComboBox
Continue



Exit