# $XConsortium: ScrollPerf.scr /main/4 1995/07/17 20:05:00 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
#


# Create the top level shell in preparation to running the performance
# monitor on creating a large List widget.

AutoPerformMonitor On

Continue

# Creating a list with a user selectable large number of items
# (default is 5000).  Running performance monitor while creating
# the list.

AutoPerformMonitor Off

Continue

# Testing the performance of scrolling in the large list widget.  First
# scroll from top to botton and then from bottom to top. 

LocatePointer List1 RVertScrollBarSlider
AutoPerformMonitor On
DragSliderValue Down Max
AutoPerformMonitor Off

LocatePointer List1 RVertScrollBarSlider
AutoPerformMonitor On
DragSliderValue Up Min
AutoPerformMonitor Off

AutoPerformMonitor On

Continue

# Testing the performance of adding one item to the bottom of the list
# when the top is visable.

AutoPerformMonitor Off
LocatePointer List1 RVertScrollBarSlider
DragSliderValue Down Max
AutoPerformMonitor On
Continue

# Testing the performance of adding one item to the bottom of the list
# when the bottom is visable.

AutoPerformMonitor Off
LocatePointer List1 RVertScrollBarSlider
DragSliderValue Up Min
AutoPerformMonitor On

Continue

# Testing the performance of deleting one item from the bottom of the
# list when the top is visable.

AutoPerformMonitor Off
LocatePointer List1 RVertScrollBarSlider
DragSliderValue Down Max
AutoPerformMonitor On

Continue

# Testing the performance of deleting one item from the bottom of the
# list when the bottom is visable. 

AutoPerformMonitor Off

Exit