# $XConsortium: RIMainWin1.scr /main/4 1995/07/17 20:35:35 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

# There should be a client window made up of a mainwindow that has three
#  regions. The first region has a menu bar with labels that say 'File',
#  'Edit', and 'Font'. The middle region has a command history list box
#  and a command line box. The last region has a set of pushbuttons.

CompareVisual MainWindow

# Press and hold MB1 on the 'File' element of the menu bar.
#  A menu with 'New', 'Open', and 'Save' should appear. 

LocatePointer MenuBtn1
ClickKey KMenuBar
PressMB Btn1
CompareVisual Pulldown1

# Drag the pointer to 'Edit' element of the menu bar.
#  A menu with 'Cut', 'Copy', 'Paste', and 'Undo' should appear. 

LocatePointer MenuBtn2

# Drag the pointer to the 'Font' element of the menu bar.
#  A menu with 'Courier', 'Times', 'Helvetica', and 'Geneva' should appear. 

LocatePointer MenuBtn3

# Drag the pointer left thru the 'Edit' element to the 'File' element
#  of the menu bar. Drag the pointer down to 'Open' and
#  release MB1. The menu should disappear. 

LocatePointer MenuBtn1
LocatePointer OpenButton
ReleaseMB Btn1

# Click and release MB1 on the 'Font' element of the menu bar. The
#  menu should appear with the 'Courier' toggle indicator visible. 

LocatePointer MenuBtn3
ClickMB Btn1 
CompareVisual Pulldown3

# Click on 'Helvetica'. The menu should disappear. 

LocatePointer HelveticaButton
ClickMB Btn1

# Click on the 'Edit' element of the menu bar. The menu should appear. 

LocatePointer MenuBtn2
ClickMB Btn1
CompareVisual Pulldown2

# Press the right arrow key. The 'Font' menu should appear.
#  The 'Helvetica' toggle indicator should be visible. 

ClickKey KRight
CompareVisual Pulldown3

# Press the return key. The menu should disappear.

ClickKey KReturn

Continue

# Resize the bottom of the window. More pushbuttons should appear.

# Type \"Main Window\" in the command line text input field and hit
#  return. \"Main Window\" should appear in the command history list region.

LocatePointer Command RSelectionText

InputString "Main Window\n"

CompareVisual Command

# Type "This is a test" in the command line text input field and hit
#  return.
#  "This is a test" should appear in the command history list region.

LocatePointer Command RSelectionText
InputString "This is a test\n"

# Iconify and Normalize the client window.

WindowIconify Shell1
WindowDeiconify Shell1

Continue

# Horizontal and vertical scrollbars should be present.

WindowRaise Shell1
CompareVisual MainWindow RVertScrollBar
CompareVisual MainWindow RHorizScrollBar
Continue

# The top separator should have changed to double line and the 
#  bottom separator should have changed to single line.

WindowRaise Shell1
CompareVisual MainWindow
Continue

# The client window should have grown. The marginWidth and 
#  marginHeight should be 50 pixels.

WindowRaise Shell1
LocatePointer MainWindow
CompareVisual MainWindow
Continue

# There should be no difference.

WindowRaise Shell1
LocatePointer MainWindow
CompareVisual MainWindow
Continue

# The client window should be smaller. The marginWidth and 
#  marginHeight should be 1 millimeter.

CompareVisual MainWindow
Continue

# There should be two X Toolkit Warnings appear in the term window.

Continue

# The client window should be blank.	

CompareVisual Shell1
Exit