# $XConsortium: ScrollList3a.scr /main/4 1995/07/17 20:22:51 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
# #) A client with a Scrolled List contained in a Form should appear.
# The List should contain a vertical scrollbar to the left of the List
# 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.
# Each item in the list should be aligned to the right of the List.
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