# $XConsortium: Scale6.scr /main/4 1995/07/17 20:36:42 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 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