# $XConsortium: List7a.scr /main/5 1995/07/17 20:22:15 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: @(#)List7a.scr	1.1  91/10/14

# This test determines that XmListDeleteItemsPos() works when
# starting delete position =< top_position < the # of items to be deleted.

# A client with two lists, two push buttons, and a scale should appear.
# The list on the far left should have a list of function names, and the
# list on the far right should have a list of items.

LocatePointer List2 RListItem 0
CompareVisual List2

# Select XmListAddItems() from the Functions list, and then
# select Item1 through Item6 from the Action List.

LocatePointer List1 RListItem 0
ClickMB Btn1

LocatePointer List2 RListItem 0
ClickMB Btn1
LocatePointer List2 RListItem 1
ClickMB Btn1
LocatePointer List2 RListItem 2
ClickMB Btn1
LocatePointer List2 RListItem 3
ClickMB Btn1
LocatePointer List2 RListItem 4
ClickMB Btn1
LocatePointer List2 RListItem 5
ClickMB Btn1


# Click MB1 in the Call Function push button. The Action list should
# now contain vertical scrollbars, and Item1 through Item6 should be
# duplicated the end of the Action List.

LocatePointer ApplyB
ClickMB Btn1

CompareVisual List2

# C)

Continue

# Click MB1 in the Clear Args push button.

LocatePointer ClearB
ClickMB Btn1

# Select XmListDeleteItemsPos() from the Functions list.
# Scroll down in the list until Item4 (the first one) is at the top.
# Select Item4. [When finished, re-run and select Item3.]
# Move the scroll slider until the value 5 is showing.

LocatePointer List1 RListItem 5
ClickMB Btn1

LocatePointer List2 RVertScrollBarDownArrow
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1

LocatePointer List2 RListItem 0
ClickMB Btn1

LocatePointer List2 RVertScrollBarDownArrow
ClickMB Btn1

# Click MB1 in the Call Function push button. The items Item4 - Item8
# (5 items starting at Item should be deleted from the Action List).

LocatePointer ApplyB
ClickMB Btn1

# E)

Exit