# $XConsortium: RowCol1.scr /main/6 1995/07/17 20:28:18 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 row column with two push buttons should appear.  The labels, 'button1'
#  and 'button2' should appear centered in the buttons.  

# Press button1.  The label should change to 'a' and still be centered in the
#  button.

# Press button2.  The label should change to 'a' and still be centered in the
#  button.

CompareVisual RowColumn1
LocatePointer button1
ClickMB Btn1
CompareVisual RowColumn1
LocatePointer button2
ClickMB Btn1
CompareVisual RowColumn1
Continue

# A RowColumn widget should be displayed, with an arrowbutton and 
#   'Label1' directly below it.
CompareVisual RowColumn1
Continue

# 'Label1' will now be to the right of the arrowbutton and 'PushButton1' 
#   will appear below the arrowbutton.

CompareVisual RowColumn1
Continue

# 'ToggleButton1' will appear below 'Label1'.
CompareVisual RowColumn1
Continue

# The background will have changed to a yellow and black pixmap.
CompareVisual RowColumn1
Continue

# The margin width and height will have changed to 20 pixels.
CompareVisual RowColumn1
Continue

# The spacing will have changed to 20 pixels.

CompareVisual RowColumn1

# Click on the arrowbutton - it should appear depressed. 

LocatePointer ArrowButton1
PressMB Btn1
CompareVisual ArrowButton1
ReleaseMB Btn1

# Click on 'Label1' - nothing should happen. 

LocatePointer Label1
PressMB Btn1
CompareVisual Label1
ReleaseMB Btn1

# Click on 'ToggleButton1' - the indicator should appear filled in. 

LocatePointer ToggleButton1
ClickMB Btn1
CompareVisual ToggleButton1

# Press and hold MB1 on 'PushButton1' - the background color
#   of the pushbutton should change. 

LocatePointer PushButton1
PressMB Btn1
CompareVisual PushButton1
ReleaseMB Btn1
Continue

#The black entry border will appear around each child of the rowcolumn.

CompareVisual RowColumn1

# Click in the border of the arrow button. The button should appear
#   pressed in and out, and an "Activation Callback"
#   message should appear in the standard out window. 

LocatePointer ArrowButton1
PressMB Btn1
CompareVisual ArrowButton1
ReleaseMB Btn1

# Repeat for the push button. 

LocatePointer PushButton1
PressMB Btn1
CompareVisual PushButton1
ReleaseMB Btn1

# Repeat for the Toggle button, pressing both in the border
#  and over the toggle button itself. Instead of
#  "Activation callback", the message should say a "Value changed"
#  callback was received.  Also verify that the state printed in the message
#  matches the visible state of the toggle button. (A filled-in indicator is
#  ON, a raised indicator is OFF.) 

LocatePointer ToggleButton1
PressMB Btn1
CompareVisual ToggleButton1
ReleaseMB Btn1
Continue

# The number of rows will have changed to four.

WindowRaise Shell1
CompareVisual RowColumn1

# Resize the lower right corner of the client window to
#  240 x 180. Only the arrowbutton and 'Label1' should be visible. 

WindowResize Shell1 SouthEast 240 180
WindowRaise Shell1
CompareVisual RowColumn1
Continue

# The number of rows has changed to one.
WindowRaise Shell1
CompareVisual RowColumn1
Continue

# Resize the window several times. The buttons should grow or shrink
#   to fit the window. 

WindowResize Shell1 SouthEast 200 200
WindowRaise Shell1
CompareVisual RowColumn1
WindowResize Shell1 SouthEast 100 100
WindowRaise Shell1
CompareVisual RowColumn1
WindowResize Shell1 SouthEast 300 300
WindowRaise Shell1
CompareVisual RowColumn1
Continue

Exit