# $XConsortium: ArrowBGad1.scr /main/6 1995/07/17 20:05:38 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 an Arrow Button Gadget pointing upward should appear. 
# Press MB1 in the client window.  The arrow should appear pressed in. 
# Release MB1 and the arrow should appear popped out. 

CompareVisual PanedWindow1
LocatePointer ArrowButton1
PressMB Btn1
CompareVisual ArrowButton1
ReleaseMB Btn1
CompareVisual ArrowButton1
Continue

# A new arrow gadget will appear pointing up.
# Click MB1 on each arrow.  Arrows should go in and out. 

LocatePointer ArrowButton1
ClickMB Btn1
LocatePointer ArrowButtonGadget1
PressMB Btn1
CompareVisual ArrowButtonGadget1
ReleaseMB Btn1
CompareVisual ArrowButtonGadget1

# Resize the window from the lower right corner.  Bottom arrows should grow. 
# Move the sash with MB1. 

WindowResize Shell1 SouthEast 250 250
CompareVisual ArrowButtonGadget1
LocatePointer PanedWindow1 RSash 0
DragXYRelative Down 20 Btn1
CompareVisual PanedWindow1
Continue

# A new arrow gadget will appear pointing down.
# Click MB1 on each arrow.  Arrows should go in and out. 

LocatePointer ArrowButton1
ClickMB Btn1
LocatePointer ArrowButtonGadget1
ClickMB Btn1
LocatePointer ArrowButtonGadget2
PressMB Btn1
CompareVisual ArrowButtonGadget2
ReleaseMB Btn1
CompareVisual ArrowButtonGadget2

# Resize the bottom of the window down.  The bottom arrow should grow. 
# Move the top sash with MB1. 
# Move bottom sash with MB1. 

WindowResize Shell1 South 290
CompareVisual ArrowButtonGadget2
LocatePointer PanedWindow1 RSash 0
DragXYRelative Up 10 Btn1
CompareVisual PanedWindow1
LocatePointer PanedWindow1 RSash 1
DragXYRelative Up 10 Btn1
CompareVisual PanedWindow1
Continue

# A new arrow gadget will appear pointing left.
# Click MB1 on each arrow.  Arrows should go in and out. 
# Move all sashes. 

LocatePointer ArrowButton1
ClickMB Btn1
LocatePointer ArrowButtonGadget1
ClickMB Btn1
LocatePointer ArrowButtonGadget2
ClickMB Btn1
LocatePointer ArrowButtonGadget3
PressMB Btn1
CompareVisual ArrowButtonGadget3
ReleaseMB Btn1
CompareVisual ArrowButtonGadget3
LocatePointer PanedWindow1 RSash 0
DragXYRelative  Down 10 Btn1
CompareVisual PanedWindow1
LocatePointer PanedWindow1 RSash 1
DragXYRelative  Up 20 Btn1
CompareVisual PanedWindow1
LocatePointer PanedWindow1 RSash 2
DragXYRelative  Up 15 Btn1
CompareVisual PanedWindow1
Continue

# A new arrow gadget will appear pointing right.
# Click MB1 on each arrow.  Arrows should go in and out. 

LocatePointer ArrowButton1
ClickMB Btn1
LocatePointer ArrowButtonGadget1
ClickMB Btn1
LocatePointer ArrowButtonGadget2
ClickMB Btn1
LocatePointer ArrowButtonGadget3
ClickMB Btn1
LocatePointer ArrowButtonGadget4
PressMB Btn1
CompareVisual ArrowButtonGadget4
ReleaseMB Btn1
CompareVisual ArrowButtonGadget4

# Resize the bottom of the window down.  The bottom arrow should grow. 

WindowResize Shell1 South 380
CompareVisual Shell1

# Move the bottom sash to the bottom.  The bottom arrow should disappear. 

LocatePointer PanedWindow1 RSash 3
PressMB Btn1
LocatePointer PanedWindow1 Down
ReleaseMB Btn1
CompareVisual PanedWindow1

# Resize the right edge.  All arrows should center themselves. 

WindowResize Shell1 East 280
CompareVisual PanedWindow1

# Resize the bottom of the window.  The last arrow should reappear. 

WindowResize Shell1 South 400

# Move the upper 2 sashes to the top.  The top two arrows should disappear. 

LocatePointer PanedWindow1 RSash 0
PressMB Btn1
LocatePointer PanedWindow1 Up
ReleaseMB Btn1
LocatePointer PanedWindow1 RSash 1
PressMB Btn1
LocatePointer PanedWindow1 Up
ReleaseMB Btn1
CompareVisual PanedWindow1

# Move the lower 2 sashes to the bottom.  The bottom two arrows should 
#  disappear. 

LocatePointer PanedWindow1 RSash 2
PressMB Btn1
LocatePointer PanedWindow1 Down
ReleaseMB Btn1
LocatePointer PanedWindow1 RSash 3
PressMB Btn1
LocatePointer PanedWindow1 Down
ReleaseMB Btn1
CompareVisual PanedWindow1

# Move sashes so that all windows are visible. 

LocatePointer PanedWindow1 RSash 1
DragXYRelative Down 80 Btn1
LocatePointer PanedWindow1 RSash 0
DragXYRelative Down 35 Btn1
LocatePointer PanedWindow1 RSash 2
DragXYRelative Up 80 Btn1
LocatePointer PanedWindow1 RSash 3
DragXYRelative Up 55 Btn1

Exit