# $XConsortium: HorPanedWin1.scr /main/4 1995/07/17 20:32:22 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 a Paned Window with three pushbuttons labeled
#  PushButton1, PushButton2, and PushButton3 will appear. 
#  The Paned Window should be horizontal.
#  The space on all 4 sides between the PanedWindow and its children should
#  be 20 pixels.
#  The sash width and height should be 10.
#  The sashes should be offset 15 pixels from the top of the PanedWindow.
#  The shadow thickenss of the sashes should be 5 pixels.
#  The panes should have separators between them.
#  The distance between each child pane should be 25 pixels.

CompareVisual PanedWindow1
Continue

#  Press and hold MB1 on the leftmost sash. Drag the pointer to the
#  right extreme of the client window.  Release MB1.
#  - the leftmost pane should expand.
#  - the middle pane should contract.
#  - the rightmost pane should contract.
#  - Pushbutton1 should be visible. 


LocatePointer PanedWindow1 RSash 0
DragXYRelative Right 100
CompareVisual PanedWindow1
 
#  Press and hold MB1 on the leftmost sash.  Drag the pointer to the
#  left extreme of the client window.  Release MB1.
#    - the leftmost pane should contract
#    - the middle pane should expand
#    - the rightmost pane should be unchanged
#    - Pushbutton2 should be visible. 



LocatePointer PanedWindow1 RSash 0
DragXYRelative Left 100
CompareVisual PanedWindow1

#  Press and hold MB1 on the rightmost sash.  Drag the pointer to the
#  left extreme of the client window.  Release MB1.
#    - the leftmost pane should be unchanged.
#    - the middle pane should contract.
#    - the rightmost pane should expand.
#    - Pushbutton3 should be visible. 

LocatePointer PanedWindow1 RSash 1
DragXYRelative Right 100
CompareVisual PanedWindow1
Continue

#  Try to resize PushButton2. It should enforce a minumum and a maximum size
#  of 100 and 150 pixels respectively.
#  Resize the client window several times. PushButton3 should not change
#  in width.

LocatePointer PanedWindow1 RSash 1
DragXYRelative Right 100
DragXYRelative Left 100
CompareVisual PanedWindow1

WindowMove Shell1 100 100

WindowResize Shell1 NorthEast 500 500
WindowRaise Shell1
CompareVisual PanedWindow1
WindowRaise Shell1
WindowResize Shell1 SouthWest 200 200
WindowRaise Shell1
CompareVisual PanedWindow1
WindowResize Shell1 SouthEast 100 100
WindowRaise Shell1
CompareVisual PanedWindow1
Continue




# PushButton1 should've grown to 500x500 pixels.

WindowRaise Shell1
CompareVisual PanedWindow1
Exit