# $TOG: ComboBox3c.scr /main/5 1998/02/05 10:27:45 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

#  A DROP_DOWN_LIST ComboBox will appear on your screen along with a

#  control panel with which you can set and get various resources of

#  the ComboBox.

#  Click MB1 on the downward pointing arrow of the ComboBox widget

#  to post the drop down List.

#  The list should contain 10 items. Six items should be visible.

#  Scroll through the list until you come to the "Wallaby" item. Select it.

#  \"Wallaby\" should now be displayed in the ComboBox Text field.

CompareVisual ComboBox

LocatePointer ComboBox RComboBoxDropDownButton

ClickMB Btn1

CompareVisual ComboBox

LocatePointer List RVertScrollBarDownArrow

ClickMB Btn1 4

CompareVisual ComboBox

LocatePointer List RListItem 9

ClickMB Btn1

CompareVisual ComboBox

Continue

# Set the value of the "Highlight Thickness" scale to 50.

# Select "Set Highlight Thickness" from the "Set ComboBox Values" menu.

# The thickness of the highlighting rectangle around the ComboBox should

# be set to 50 pixels.

#

LocatePointer ComboScale0 RScaleSlider

DragSliderValue Right 50

LocatePointer ComboCascade1

PressMB Btn1

LocatePointer ComboSetPB0

ReleaseMB Btn1

LocatePointer ComboBox

CompareVisual ComboBox

Continue

#  Set the value of the "Arrow Size" scale to 25.

#  Select "Set Arrow Size" from the "Set ComboBox Values" menu.

#  The width of the arrow should be set to 25 pixels.

#  Set the value of the "Arrow Spacing" scale to 25.

#  Select "Set Arrow Spacing" from the "Set ComboBox Values" menu.

#  The space between the Text widget and the arrow should be set to 25 

#  pixels.

LocatePointer ComboScale1 RScaleSlider

DragSliderValue Right 25

LocatePointer ComboCascade1

PressMB Btn1

LocatePointer ComboSetPB1

ReleaseMB Btn1

CompareVisual ComboBox

LocatePointer ComboScale2 RScaleSlider

DragSliderValue Right 25

LocatePointer ComboCascade1

PressMB Btn1

LocatePointer ComboSetPB2

ReleaseMB Btn1

CompareVisual ComboBox

Continue

#  Set the value of the "Margin Width" scale to 50.

#  Select "Set Margin Width" from the "Set ComboBox Values" menu.

#  The horizontal spacing between the ComboBox and its children should be set

#  to 50 pixels.

#  Set the value of the "Set Margin Height" scale to 50.

#  Select "Set Margin Height" from the "Set ComboBox Values" menu.

#  The vertical spacing between the ComboBox and its children should be set

#  to 50 pixels.

LocatePointer ComboScale3 RScaleSlider

DragSliderValue Right 50

LocatePointer ComboCascade1

PressMB Btn1

LocatePointer ComboSetPB3 

ReleaseMB Btn1

CompareVisual ComboBox

LocatePointer ComboScale4 RScaleSlider

DragSliderValue Right 50

LocatePointer ComboCascade1

PressMB Btn1

LocatePointer ComboSetPB4

ReleaseMB Btn1

CompareVisual ComboBox

Continue

#  Post the "Set Font" menu.

#  Select each of the available fonts. 

#  The font in the List should change to the selected font. If

#  the ComboBox is of type COMBO_BOX or DROP_DOWN_COMBO_BOX, type

#  in the Text widget. The font should be what was selected.

LocatePointer FontCascade1

PressMB Btn1

LocatePointer FontPB0

ReleaseMB Btn1

CompareVisual ComboBox

LocatePointer ComboBox RComboBoxDropDownButton

PressMB Btn1

CompareVisual List

ReleaseMB Btn1

LocatePointer FontCascade1

PressMB Btn1

LocatePointer FontPB1

ReleaseMB Btn1

CompareVisual ComboBox

LocatePointer ComboBox RComboBoxDropDownButton

PressMB Btn1

CompareVisual List

ReleaseMB Btn1

LocatePointer FontCascade1

PressMB Btn1

LocatePointer FontPB2

ReleaseMB Btn1

CompareVisual ComboBox

LocatePointer ComboBox RComboBoxDropDownButton

PressMB Btn1

CompareVisual List

ReleaseMB Btn1

LocatePointer FontCascade1

PressMB Btn1

LocatePointer FontPB3

ReleaseMB Btn1

CompareVisual ComboBox

LocatePointer ComboBox RComboBoxDropDownButton

PressMB Btn1

CompareVisual List

ReleaseMB Btn1

Continue

#  Set the value of the "Selected Position" scale to 3.

#  Select "Set Selected Position" from the "Set ComboBox Values" menu.

#  The 3rd item of the list should be selected.

#  There will be a message in the term window indicating the the 

#  selectionCallback has been called. The reason should be XmCR_SELECT.

#  Click on an item in the list. The selection callback should be invoked.

#  The name of the item should appear in the Text field.

#  Type "Kangaroo" into the Text field. The selectionCallback should

#  be invoked.

LocatePointer ComboScale5 RScaleSlider

DragSliderValue Right 3

LocatePointer ComboCascade1

PressMB Btn1

LocatePointer ComboSetPB6

ReleaseMB Btn1

CompareVisual ComboBox

LocatePointer ComboBox RComboBoxDropDownButton

PressMB Btn1

CompareVisual List

ReleaseMB Btn1

LocatePointer List RListItem 2

ClickMB Btn1

CompareVisual ComboBox

LocatePointer ComboBox RComboBoxDropDownButton

PressMB Btn1

CompareVisual List

ReleaseMB Btn1

Continue

# Set matchBehavior to QUICK_NAVIGATE.

# Select "Set Match Behavior" from the "Set ComboBox Values" menu.

# Post the List of the ComboBox by clicking MB1 on the downward pointing

# arrow.

# Type "W" in the Text widget.

# The "Watermelon" item should be displayed in the Text Field and

# become highlighted in the List.

# Type "W" again.

# The "Wallaby" item should now be displayed in the Text Field

# and should be highlighted in the List.

LocatePointer ToggleMatch1

ClickMB Btn1

LocatePointer ComboCascade1

PressMB Btn1

LocatePointer ComboSetPB5

ReleaseMB Btn1

LocatePointer ComboBox RComboBoxDropDownButton

ClickMB Btn1

LocatePointer List

ClickKey <Shift> Kw 

CompareVisual Text

CompareVisual List

ClickKey <Shift> Kw 

CompareVisual Text

CompareVisual List

Continue

Exit