# $XConsortium: Scale6.scr /main/4 1995/07/17 20:36:42 drk $
# @OPENGROUP_COPYRIGHT@
# COPYRIGHT NOTICE
# Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc.
# Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group
# ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
# the full copyright text.
# 
# This software is subject to an open license. It may only be
# used on, with or for operating systems which are themselves open
# source systems. You must contact The Open Group for a license
# allowing distribution and sublicensing of this software on, with,
# or for operating systems which are not Open Source programs.
# 
# See http://www.opengroup.org/openmotif/license for full
# details of the license agreement. Any use, reproduction, or
# distribution of the program constitutes recipient's acceptance of
# this agreement.
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
# PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY
# WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
# OR FITNESS FOR A PARTICULAR PURPOSE
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
# NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT,
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
# AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
# ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
# EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGES.
# 
# HISTORY
#  @) A client with a vertical scale widget will appear.  There will be
#     11 label widgets (\"0\", \"10\", \"20\", \"30\", \"40\",
#     \"50\", \"60\", \"70\",
#     \"80\", \"90\", and \"100\") to left of the scale.  The labels will
#     all have small borders.  The labels will be created AFTER the TOP
#     level shell has been realized.  This process will be very slow. 
#  #) Press and hold down MB1 on the slider and drag it up and down.
#     Verify that the value to the left of the slider corresponds to
#     the slider's position within the scale.  The value and reason
#     will be printed to the stdout window.  Release MB1. 
LocatePointer Scale1 RScaleSlider
DragSliderValue Down 60
CompareVisual Scale1
DragSliderValue Up 15
CompareVisual Scale1
DragSliderValue Down 85
CompareVisual Scale1

#  #) Press MB1 in the scroll region above the slider.  Verify that the
#     value to the left of the slider corresponds to the slider's
#     position within the scale.  The value and reason will be printed
#     to the stdout window. 
LocatePointer Scale1 RScaleUpOrLeftSliderArea
ClickMB Btn1
CompareVisual Scale1

#  #) Resize the client larger.  The labels should spread out and
#     remain on the left side of the client window, the scroll region
#     should span the right side of the client window, and the value
#     should be to the left of the slider. 
WindowResize Shell1 SouthEast 250 500
CompareVisual Shell1

#  #) Resize the client smaller until the labels overlap. 
WindowResize Shell1 SouthEast 50 150
CompareVisual Shell1

#  C)
Continue

#  @) The scale widget will now be horizontal, with the label widgets
#     arrayed above it. 
#  #) Press and hold down MB1 on the slider and drag it to the right
#     and to the left.  Verify that the value above the slider
#     corresponds to the slider's position within the scale.  The value
#     and reason will be printed to the stdout window.  Release MB1. 
LocatePointer Scale1 RScaleSlider
DragSliderValue Right 85
CompareVisual Scale1
DragSliderValue Left 55
CompareVisual Scale1
DragSliderValue Left 10
CompareVisual Scale1
DragSliderValue Right 60
CompareVisual Scale1

#  #) Press MB1 in the scroll region to the left of the slider.  Verify
#     that the value above the slider corresponds to the slider's
#     position within the scale.  The value and reason will be printed
#     to the stdout window. 
LocatePointer Scale1 RScaleUpOrLeftSliderArea
ClickMB Btn1
CompareVisual Scale1

#  #) Resize the client larger.  The labels should spread out and
#     remain at the top of the client window, the scroll region should
#     span the botttom of the client window, and the value should be
#     above the slider. 
WindowResize Shell1 SouthEast 500 250
CompareVisual Shell1

#  #) Resize the client smaller until the labels overlap. 
WindowResize Shell1 SouthEast 150 50
CompareVisual Shell1

#  E)
Exit