# $XConsortium: Text10.scr /main/6 1995/07/17 20:41:19 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
# 

#  /* test case for PIR 3317 */
#  @) Two text widgets were created using the helvetica1 font.
#  #) Click on the helvetica2 font to change both widgets to the larger font.
#  Both widgets should grow in width but their columns should remain
#  unchanged.  The width and column data is displayed in the stdout window.
LocatePointer RB1_helv2
ClickMB Btn1
CompareVisual Shell1

#  #) Click on the helvetica1 font to change the widgets back to the
#  smaller font.  Both widgets should shrink in width and keep the
#  same column count.
#  /* end of test case for PIR 3317 */
LocatePointer RB1_helv1
ClickMB Btn1
CompareVisual Shell1

#  C)
Continue

#  PIR CLOSED, test case is invalid
#  #  /* test case for PIR 3753 */
#  #  #) Press and hold MB1 on the helvetica2 ToggleButton.  While it is 
#  #  being held, the font should change for the text widget.
#  LocatePointer RB1_helv2
#  PressMB Btn1
#  System sleep 1
#  
#  #  #) Without moving the mouse, release MB1.  Confirm that the ToggleButton
#  #  indicator for the helvetica2 button appears depressed and all other
#  #  ToggleButtons do not.
#  ReleaseMB Btn1
#  
#  #  #) Press and hold MB1 on the helvetica3 ToggleButton.  While it is
#  #  being held, the font should change again for the text widget.
#  LocatePointer RB1_helv3
#  PressMB Btn1
#  System sleep1
#  
#  #  #) Move the pointer outside the test window and release the MB1.
#  #  The ToggleButton indicator for the helvetica2 button should still appear
#  #  depressed and the indicator for helvetica3 should not.
#  LocatePointer RB1_helv3 Off
#  ReleaseMB Btn1
#  
#  #  /* end of test case for PIR 3753 */
#  #  C)
#
# Continue

#/* test case for PIR 2648 */
#@) A resizable Text widget is displayed.
#@) The following resources have been set:
#!)     XmNrows = 3
#!)     XmNcolumns = 20

#@) The text displayed in the widget should consist of, one row of numbers,
#one row of the letter "m" and one row of the number "0".

##) Select the first fontname in the radiobox.
##) Verify that there are at least twenty characters displayed in the
#text widget. This can be done by clicking MB1 at the beginning of
#a row of text and then clicking KRight counting each of characters
#until the end of the row.
##) Repeat the above test for each of the fonts in the radiobox.

## count the helvetica1 font
CompareVisual Text1

## count the helvetica2 font
LocatePointer RB1_helv2
ClickMB Btn1
CompareVisual Text1

## count the helvetica3 font
LocatePointer RB1_helv3
ClickMB Btn1
CompareVisual Text1

## count the 6x12 font
LocatePointer RB1_6x12
ClickMB Btn1
CompareVisual Text1

## count the 9x15 font
LocatePointer RB1_9x15
ClickMB Btn1
CompareVisual Text1

## count the courier1 font
LocatePointer RB1_cour1
ClickMB Btn1
CompareVisual Text1

## count the courier2 font
LocatePointer RB1_cour2
ClickMB Btn1
CompareVisual Text1

## count the times1 font
LocatePointer RB1_times1
ClickMB Btn1
CompareVisual Text1

## count the times2 font
LocatePointer RB1_times2
ClickMB Btn1
CompareVisual Text1

#  E)
Exit