# $XConsortium: ArrowBGad1.scr /main/6 1995/07/17 20:05:38 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 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