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