# $XConsortium: Scale9.scr /main/4 1995/07/17 20:36:59 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 and three pushbuttons will
#     appear.  The scale will be on the right of the client window, and
#     the pushbuttons will be on the left.  The pushbuttons will be
#     labeled \"Push_5_More\", \"Push_Max\" and \"Push_Min\". 
#  #) Click MB1 on \"Push_5_More\".  The scale should increment by 5 and
#     the new slider position should be printed in the stdout window. 
LocatePointer Push_5_More
ClickMB Btn1
CompareVisual scaleWidget

#  #) Click MB1 on \"Push_Max\".  The slider should move all the way to
#     the top of the scale. 
LocatePointer Push_Max
ClickMB Btn1
CompareVisual scaleWidget

#  #) Click MB1 on \"Push_5_More\".  An X toolkit warning indicating that
#     the scale value is greater than the maximum scale value should be
#     printed in the stdout window. 
LocatePointer Push_5_More
ClickMB Btn1
CompareVisual scaleWidget

#  #) Click MB1 on Push_Min button.  The slider should move all the way
#     to the bottom of the scale. 
LocatePointer Push_Min
ClickMB Btn1
CompareVisual scaleWidget

#  #) Resize the client smaller until the labels overlap. 
WindowResize Shell1 SouthEast 50 60
Wait 2
CompareVisual Shell1

#  C)
Continue

#  @) The scale widget will now be horizontal, on the bottom of the
#     client window, with the pushbuttons arrayed above it. 
#  #) Click MB1 on \"Push_5_More\".  The scale should increment by 5 and
#     the new slider position should be printed in the stdout window. 
LocatePointer Push_5_More
ClickMB Btn1
CompareVisual scaleWidget

#  #) Click MB1 on \"Push_Max\".  The slider should move all the way to
#     the left edge of the scale. 
LocatePointer Push_Max
ClickMB Btn1
CompareVisual scaleWidget

#  #) Click MB1 on \"Push_5_More\".  An X toolkit warning indicating that
#     the scale value is greater than the maximum scale value should be
#     printed in the stdout window. 
LocatePointer Push_5_More
ClickMB Btn1
CompareVisual scaleWidget

#  #) Click MB1 on Push_Min button.  The slider should move all the way
#     to the right edge of the scale. 
LocatePointer Push_Min
ClickMB Btn1
CompareVisual scaleWidget

#  #) Resize the client smaller until the labels overlap. 
WindowResize Shell1 SouthEast 150 50
Wait 2
CompareVisual Shell1

#  E)
Exit