# $XConsortium: ScrollList3.scr /main/5 1995/07/17 20:22:45 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
#
# OSF/Motif: @(#)ScrollList3.scr 1.2 91/10/31
# A client with a Scrolled List contained in a Form should appear.
# The List should contain a vertical scrollbar with 5
# visible items (One - Five). The List should be attached to the Form
# on the right and left, and have an Offset of 50 on the right and left.
# The font will be courier if your system supports it, if not the
# test suite default font.
LocatePointer List1 RListItem 0
CompareVisual List1
# Click MB1 in the scrollbar below the slider. Item <Five> should
# now the be first item in the List, and Items Five - Nine should
# be visible.
LocatePointer List1 RVertScrollBarDownSliderArea
ClickMB Btn1
CompareVisual List1
# C)
Continue
# Select the first visible Item (Five). The last Item (Ten) should be
# deleted from the List. There should be no visible change to the List,
# but the scrollbar should fill downwards.
LocatePointer List1 RListItem 0
ClickMB Btn1
# Select the first Item from the List again (Item5). The last item
# should be deleted from the List and the List should scroll up one item.
LocatePointer List1 RListItem 0
ClickMB Btn1
# Continue this process until no items are left in the List.
# When item <Six> is deleted, the vertical scrollbar will disappear.
# When the last item is deleted from the list a message will be
# printed in the term window.
LocatePointer List1 RListItem 0
ClickMB Btn1
LocatePointer List1 RListItem 0
ClickMB Btn1
LocatePointer List1 RListItem 0
ClickMB Btn1
LocatePointer List1 RListItem 0
ClickMB Btn1
LocatePointer List1 RListItem 0
ClickMB Btn1
LocatePointer List1 RListItem 0
ClickMB Btn1
LocatePointer List1 RListItem 0
ClickMB Btn1
LocatePointer List1 RListItem 0
ClickMB Btn1
# C)
Continue
# All ten items will be replaced, and items Six through Ten should be visible.
LocatePointer List1 RListItem 0
CompareVisual List1
# C)
Continue
# The List should shrink to a height of 0. No items should be visible.
# C)
Continue
# The List should grow to a height of 500. All items should be visible.
LocatePointer List1 RListItem 0
CompareVisual List1
# C)
Continue
# The List should now be empty, there also should be two PushButtons
# below the List.
CompareVisual List1
# Press \"Push To Add one Item\" 5 times until the vertical scrollbar
# grows.
LocatePointer Push2
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
CompareVisual List1
# Now move the vertical scrollbar all the way down.
LocatePointer List1 RVertScrollBarSlider
DragSliderValue Down Max
# Now press \"Push to Delete and Add\". The List should contain 1 item
# \"Yet Another\".
LocatePointer Push1
ClickMB Btn1
CompareVisual List1
# C)
Continue
# The List should now be empty, there also should be two PushButtons
# below the List.
CompareVisual List1
# Press \"Push To Add one Item\" 5 times until the vertical scrollbar
# grows.
LocatePointer Push2
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
# Now move the vertical scrollbar all the way down.
LocatePointer List1 RVertScrollBarSlider
DragSliderValue Down Max
# Now press \"Push to Delete and Add\". The List should contain 1 item
# \"Yet Another\".
LocatePointer Push1
ClickMB Btn1
CompareVisual List1
# C)
Continue
# The List should now be empty, there also should be two PushButtons
# below the List.
CompareVisual List1
# Press \"Push To Add one Item\" 5 times until the vertical scrollbar
# grows.
LocatePointer Push2
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
# Now move the vertical scrollbar all the way down.
LocatePointer List1 RVertScrollBarSlider
DragSliderValue Down Max
# Now press \"Push to Delete and Add\". The List should contain 1 item
# \"Yet Another\".
LocatePointer Push1
ClickMB Btn1
CompareVisual List1
# E)
Exit