# $XConsortium: ScrollWin2.scr /main/5 1995/07/17 20:45:34 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 scrolled window should appear. Ten and
#  a half pushbutton gadgets and pushbuttons should be visible.
#  A vertical scrollbar should appear at the left side of the client. 

CompareVisual ScrolledWindow1
Continue

# Move the client to the top of the screen. Resize
#  the bottom of the client window down to the bottom of the screen.
#  Most or all of the following should be visible:
#
#     six PushButtonGadgets (black foregrounds)
#     eight PushButtons (green foregrounds)
#     five ArrowButtonGadgets (red foregrounds)
#     five ArrowButtons (black foregrounds)
#  If all are visible, the scrollbars should disappear. 

WindowMove Shell1 0 0
WindowResize Shell1 South 800
CompareVisual ScrolledWindow1
Continue

# Resize the right edge of the client window to the left so that
#  the widgets and gadgets are only partially visible. The
#  horizontal scrollbar should appear at the top of the client. 

WindowResize Shell1 East 100
CompareVisual ScrolledWindow1

# Press and hold MB1 on the horizontal slider. Drag the slider to
#  the far right. The pushbutton gadget numbers should be visible. 

LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragSliderValue Right Max
CompareVisual ScrolledWindow1
Continue

# Resize the bottom of the client up so that some widgets and
#  gadgets are clipped. The vertical scrollbar should reappear
#  at on the left of the client. 

WindowResize ScrolledWindow1 South 400
CompareVisual ScrolledWindow1

# Press and hold MB1 on the vertical slider. Drag the slider 
#  to the bottom. Release MB1. 

LocatePointer ScrolledWindow1 RVertScrollBarSlider
DragSliderValue Down Max

# Press and hold MB1 on the horizontal slider. Drag the slider
#  to the middle. Release MB1. Depending on how small you resized the window,
#  some number of the green and red arrow buttons should be visible. 

LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragSliderValue Left 50

# Iconify the client. Normalize the client. 
WindowIconify Shell1
WindowDeiconify Shell1
Exit