# $XConsortium: ScrollWin1.scr /main/6 1995/07/17 20:45:21 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
# 

# An empty client will appear. This window is a ScrolledWindow
#  without the work window set. 

LocatePointer ScrolledWindow1
CompareVisual ScrolledWindow1
Continue

# A client window containing a scrolled window whose work window has
#  pushbuttons should appear. Ten of the fifteen pushbuttons should be visible.
#  A vertical scrollbar should appear at the right side of the client. 

LocatePointer ScrolledWindow1
CompareVisual ScrolledWindow1
Continue

# Push some pushbuttons and scroll up and down. 

LocatePointer PushButton10
ClickMB Btn1
LocatePointer PushButton1
ClickMB Btn1
LocatePointer PushButton3
ClickMB Btn1
LocatePointer PushButton5
ClickMB Btn1
LocatePointer PushButton8
ClickMB Btn1

LocatePointer ScrolledWindow1 RVertScrollBarDownArrow
ClickMB Btn1 3

LocatePointer PushButton14
ClickMB Btn1

# Resize the bottom of the client window down to expose all
#  fifteen pushbuttons. The vertical scrollbar should disappear. 

WindowResize Shell1 South 500

# Resize the right edge of the client left so that the pushbuttons
#  are only partially visible. A horizontal scrollbar should appear at
#  the bottom of the client window. 

WindowResize Shell1 East 80

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

LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragXYRelative Right 10
CompareVisual ScrolledWindow1
Continue

# Resize bottom of the client up so that some pushbuttons
#  are clipped. The vertical scrollbar should reappear at the right
#  side of the the client window. 

WindowResize Shell1 South 400
LocatePointer ScrolledWindow1
CompareVisual ScrolledWindow1

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

LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragXYRelative Right 50
LocatePointer ScrolledWindow1
CompareVisual ScrolledWindow1

# Press and hold MB1 on the vertical slider. Drag the slider to the bottom.
#  The last pushbutton numbers through 15 should be visible.
#  Release MB1. 

LocatePointer ScrolledWindow1 RVertScrollBarSlider
DragXYRelative Down 50
LocatePointer ScrolledWindow1
CompareVisual ScrolledWindow1
Exit