# $XConsortium: Scale1.scr /main/4 1995/07/17 20:36:06 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 scale should appear. Press and hold MB1 on
#     scale slider. Drag slider up and down the scale. The
#     number to the left of the scale should change from 0 at
#     the bottom to 100 at the top. Release MB1.
LocatePointer Scale1 RScaleSlider
DragSliderValue Up Max
CompareVisual Scale1
DragSliderValue Down Min
CompareVisual Scale1
DragSliderValue Up 40
CompareVisual Scale1

#  #) Continue to have client window change size.
#  C)
Continue

#  #) Resize the client window.
WindowResize Shell1 SouthEast 250 500
CompareVisual Shell1

#  #) Press and hold MB1 on scale slider. Drag slider
#     up and down the scale. Number to the left of
#     the scale should change from -1.00 at bottom to
#     1.00 at the top. Release MB1.
LocatePointer Scale1 RScaleSlider
DragSliderValue Up Max
CompareVisual Scale1
DragSliderValue Down Min
CompareVisual Scale1
DragSliderValue Up 40
CompareVisual Scale1

#  #) Resize the client window.
WindowResize Shell1 SouthEast 150 300
CompareVisual Shell1

#  #) Iconify and Normalize the client window.
WindowIconify Shell1
WindowDeiconify Shell1
CompareVisual Shell1

#  #) Shrink the client window to the smallest possible size.
WindowResize Shell1 SouthEast 0 0
CompareVisual Shell1

#  #) Re-expand the client window.
WindowResize Shell1 SouthEast 150 300
CompareVisual Shell1

#  C)
Continue

#  /* test case for PIR 2808 - use Italics font to show bug */
#  #) Press and hold MB1 on scale slider. Slowly drag slider left
#     and right. The number on the top of the scale should change
#     from 0 on the left to 100 on the right. As the slider is
#     moved, the number should be drawn and redrawn cleanly
#     (leaving no garbage pixels).
LocatePointer Scale1 RScaleSlider
DragSliderValue Left Min
DragSliderValue Right 1
CompareVisual Scale1
DragSliderValue Right 3
DragSliderValue Right 5
DragSliderValue Right 7
CompareVisual Scale1
DragSliderValue Right 20
DragSliderValue Right 30
DragSliderValue Right 40
CompareVisual Scale1

#  E)
Exit