# $TOG: ComboBox1b.scr /main/5 1998/02/05 10:22:02 csn $
# 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


#  This test should have been run with the flag "-u 2".
#  The XtName of the ComboBox created in this test is CB2.
#  All resources for this ComboBox are contained in the defaults
#  file ./ComboBox.defaults. 
#  There should be no warnings on the term window indicating uninstalled or
#  incorrect resource converters.
#  The ComboBox should be of type DROP_DOWN_COMBO_BOX. 
#  The arrowSize of the ComboBox should be 15 pixels.
#  The arrowSpacing of the ComboBox should be 10 pixels.
#  Post the list of the ComboBox. It has 6 items, all of which should be 
#  visible.
#  The items in the list should be displayed with stringDirection 
#  Right_To_Left.
#  Type "leaves" into the Text widget. The item "leaves" should be selected.
#  Post the list of the ComboBox again. Click on the item "dew". 
#  "dew" should appear in the Text widget.


CompareVisual CB2
LocatePointer CB2 RComboBoxDropDownButton
ClickMB Btn1
CompareVisual CB2
LocatePointer Text
ClickMB Btn1
InputString "leaves"
CompareVisual CB2
LocatePointer List RListItem 4
LocatePointer CB2 RComboBoxDropDownButton
ClickMB Btn1
CompareVisual CB2
Exit