# $XConsortium: Scale8.scr /main/4 1995/07/17 20:36:54 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.  
#     The scale will
#     have a title labeled "Affected", and will have the
#     slider value shown to the left of the slider.  The font will be
#     variable and the shadowThickness will be 8 pixels initially. 
#  #ifdef MOTIF1_2
#  /* test case for PIR 3158 */
#  #) Click on the "horizontal" orientation togglebutton.  This will alter 
#  the orientation of the "Affected" scale.
LocatePointer horizontal
ClickMB Btn1
CompareVisual Scale1

#  #) Using MB1, drag the "scaleWidth" slider out to about 60.  The
#  "Affected" scale should be just wider than its title string ("Affected").
LocatePointer widthScale RScaleSlider
DragSliderValue Right 60
CompareVisual Scale1

#  #) Using the osfLeft arrow key, lower the "scaleWidth" value
#  repeatly until the width of the "Affected" scale is less than
#  the width of its title string.
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
CompareVisual Scale1
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
CompareVisual Scale1
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
CompareVisual Scale1

#  #) Using MB1, drag the "scaleWidth" slider out to about 80.  The "Affected"
#  scale should grow in width.  Drag "scaleWidth" slider in to about 35.  The 
#  "Affected" scale should shrink in width.
LocatePointer widthScale RScaleSlider
DragSliderValue Right 80
CompareVisual Scale1
DragSliderValue Left 35
CompareVisual Scale1

#  #) Using the osfRight arrow key, raise the "scaleWidth" value a few 
#  numbers and verify that the "Affected" scale is growing accordingly.
#  /* end of test case for PIR 3158 */
ClickKey KRight
ClickKey KRight
ClickKey KRight
CompareVisual Scale1
ClickKey KRight
ClickKey KRight
ClickKey KRight
CompareVisual Scale1

#  C)
Continue

#  #endif MOTIF1_2
#  /* test case for PIR 3157 */
#  #) Click on the "vertical" orientation togglebutton.  This will alter 
#  the orientation of the "Affected" scale.
LocatePointer vertical
ClickMB Btn1
CompareVisual Scale1

#  #) Using MB1, drag the "scaleWidth" slider out to about 50.
#  The scale labeled "Affected" should grow in width.
LocatePointer widthScale RScaleSlider
DragSliderValue Right 50
CompareVisual Scale1

#  #) Using MB1, drag the "scaleHeight" slider out to about 30.
#  The "Affected" scale should shrink in height.
LocatePointer heightScale RScaleSlider
DragSliderValue Right 30
CompareVisual Scale1

#  #) With the highlight still on the "scaleHeight" scale, press the
#  osfLeft arrow key enough times to bring the height value down to 21.
#  As the scale is adjusted, the "Affected" scale should be shrinking in height.
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
CompareVisual Scale1
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
CompareVisual Scale1

#  #) Press the osfLeft key one more time and observe that the
#  "Affected" scale is shrinking normally.  
ClickKey KLeft
CompareVisual Scale1

#  @) WARNING: The next step may crash the server if the defect has not
#  been resolved yet.
#  #) Press the osfLeft key a few more times and continue to observe the
#  behavior of the "Affected" scale.
#  /* end of test case for PIR 3157 */
ClickKey KLeft
CompareVisual Scale1
ClickKey KLeft
CompareVisual Scale1
ClickKey KLeft
CompareVisual Scale1

#  C)
Continue

#  /* test case for PIR 3154 */
#  #) Click on the "set defaults" pushbutton.  The "Affected" scale should
#  return to its initial shape and size, and all the control widgets below
#  it should be reset to their initial readings.
#  /* end of test case for PIR 3154 */
LocatePointer defaultPB
ClickMB Btn1
CompareVisual Shell1

#  E)
Exit