Blame tests/Toolkit/Scrollbar/Scale1.scr

Packit b099d7
# $XConsortium: Scale1.scr /main/4 1995/07/17 20:36:06 drk $
Packit b099d7
# Motif
Packit b099d7
#
Packit b099d7
# Copyright (c) 1987-2012, The Open Group. All rights reserved.
Packit b099d7
#
Packit b099d7
# These libraries and programs are free software; you can
Packit b099d7
# redistribute them and/or modify them under the terms of the GNU
Packit b099d7
# Lesser General Public License as published by the Free Software
Packit b099d7
# Foundation; either version 2 of the License, or (at your option)
Packit b099d7
# any later version.
Packit b099d7
#
Packit b099d7
# These libraries and programs are distributed in the hope that
Packit b099d7
# they will be useful, but WITHOUT ANY WARRANTY; without even the
Packit b099d7
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
Packit b099d7
# PURPOSE. See the GNU Lesser General Public License for more
Packit b099d7
# details.
Packit b099d7
#
Packit b099d7
# You should have received a copy of the GNU Lesser General Public
Packit b099d7
# License along with these librararies and programs; if not, write
Packit b099d7
# to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
Packit b099d7
# Floor, Boston, MA 02110-1301 USA
Packit b099d7
# 
Packit b099d7
# HISTORY
Packit b099d7
Packit b099d7
#  #) A client with a scale should appear. Press and hold MB1 on
Packit b099d7
#     scale slider. Drag slider up and down the scale. The
Packit b099d7
#     number to the left of the scale should change from 0 at
Packit b099d7
#     the bottom to 100 at the top. Release MB1.
Packit b099d7
LocatePointer Scale1 RScaleSlider
Packit b099d7
DragSliderValue Up Max
Packit b099d7
CompareVisual Scale1
Packit b099d7
DragSliderValue Down Min
Packit b099d7
CompareVisual Scale1
Packit b099d7
DragSliderValue Up 40
Packit b099d7
CompareVisual Scale1
Packit b099d7
Packit b099d7
#  #) Continue to have client window change size.
Packit b099d7
#  C)
Packit b099d7
Continue
Packit b099d7
Packit b099d7
#  #) Resize the client window.
Packit b099d7
WindowResize Shell1 SouthEast 250 500
Packit b099d7
CompareVisual Shell1
Packit b099d7
Packit b099d7
#  #) Press and hold MB1 on scale slider. Drag slider
Packit b099d7
#     up and down the scale. Number to the left of
Packit b099d7
#     the scale should change from -1.00 at bottom to
Packit b099d7
#     1.00 at the top. Release MB1.
Packit b099d7
LocatePointer Scale1 RScaleSlider
Packit b099d7
DragSliderValue Up Max
Packit b099d7
CompareVisual Scale1
Packit b099d7
DragSliderValue Down Min
Packit b099d7
CompareVisual Scale1
Packit b099d7
DragSliderValue Up 40
Packit b099d7
CompareVisual Scale1
Packit b099d7
Packit b099d7
#  #) Resize the client window.
Packit b099d7
WindowResize Shell1 SouthEast 150 300
Packit b099d7
CompareVisual Shell1
Packit b099d7
Packit b099d7
#  #) Iconify and Normalize the client window.
Packit b099d7
WindowIconify Shell1
Packit b099d7
WindowDeiconify Shell1
Packit b099d7
CompareVisual Shell1
Packit b099d7
Packit b099d7
#  #) Shrink the client window to the smallest possible size.
Packit b099d7
WindowResize Shell1 SouthEast 0 0
Packit b099d7
CompareVisual Shell1
Packit b099d7
Packit b099d7
#  #) Re-expand the client window.
Packit b099d7
WindowResize Shell1 SouthEast 150 300
Packit b099d7
CompareVisual Shell1
Packit b099d7
Packit b099d7
#  C)
Packit b099d7
Continue
Packit b099d7
Packit b099d7
#  /* test case for PIR 2808 - use Italics font to show bug */
Packit b099d7
#  #) Press and hold MB1 on scale slider. Slowly drag slider left
Packit b099d7
#     and right. The number on the top of the scale should change
Packit b099d7
#     from 0 on the left to 100 on the right. As the slider is
Packit b099d7
#     moved, the number should be drawn and redrawn cleanly
Packit b099d7
#     (leaving no garbage pixels).
Packit b099d7
LocatePointer Scale1 RScaleSlider
Packit b099d7
DragSliderValue Left Min
Packit b099d7
DragSliderValue Right 1
Packit b099d7
CompareVisual Scale1
Packit b099d7
DragSliderValue Right 3
Packit b099d7
DragSliderValue Right 5
Packit b099d7
DragSliderValue Right 7
Packit b099d7
CompareVisual Scale1
Packit b099d7
DragSliderValue Right 20
Packit b099d7
DragSliderValue Right 30
Packit b099d7
DragSliderValue Right 40
Packit b099d7
CompareVisual Scale1
Packit b099d7
Packit b099d7
#  E)
Packit b099d7
Exit