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