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

WindowRaise Shell1
#  #) Traverse until Push Button 1 has focus.
LocatePointer bboard

#  #) Type <Meta> Q.  Push Button 2 should now enlarge by 20 pixels in
#  width and height.
ClickKey <Meta> Kq
CompareVisual bboard

#  C)
Continue
WindowRaise Shell1

#  #) Traverse until the Text widget has focus.
LocatePointer bboard
ClickKey KTab

#  #) Type <Meta> Q.  Push Button 2 should now return to it's original size.
#  /* test case for PIR 2162 */
ClickKey <Meta> Kq
CompareVisual bboard

#  #) Click MB1 in the Text widget and leave the pointer where it is over the 
#  Text widget.
LocatePointer text1 RTextChar 10
ClickMB Btn1

#  #) Type <Meta> Q.  Push Button 2 should now enlarge again in width and
#  height.
#  /* end of test case for PIR 2162 */
ClickKey <Meta> Kq
CompareVisual bboard

#  C)
Continue

#  @) All three widgets have been destroyed and recreated.  They should all
#  appear as they did when the test first began.
#  #) Click in the Text widget and then traverse until Push Button 1 has
#  focus again.
LocatePointer text1 RTextChar 10
ClickMB Btn1
ClickKey <Ctrl> KTab
CompareVisual bboard

#  #) Type <Meta> Q.  The Text widget should scroll down one page of text, the
#  Push Button 2 widget will remain unchanged.
ClickKey <Meta> Kq
CompareVisual bboard

# C)
Continue

# An editable text widget will appear along with a pushbutton labelled
# \"Add Callback\".
# 
# Click MB1 in the text widget to give the text widget the focus.
# Enter some text into the text widget.
# Click MB1 on the \"Add Callback\" pushbutton. Verify that the message
# \"Add insert handler\" is printed to the terminal.
# Move the cursor back to the text widget and click MB1. Enter some more
# text in the text widget. Verify that the cursor is displayed while
# text is being entered.
LocatePointer EDITOR
ClickMB Btn1
InputString "Some text"
LocatePointer pushbutton
ClickMB Btn1
LocatePointer EDITOR
ClickMB Btn1
InputString "Even more text"
CompareVisual EDITOR

# C)
Continue

# Text has been cleared from the text widget and the font has been
# changed to "12x24".
# 
# Click MB1 in the text widget and enter some new text.
# Click MB1 on the \"Add Callback\" pushbutton.
# Click MB1 in the text widget and add new text again.
# Move the cursor throughout the new text.
# Verify that the text does not get partically erased and that old
# insertion cursors do not remain throughout the text.
LocatePointer EDITOR
ClickMB Btn1
InputString "Some text"
LocatePointer pushbutton
ClickMB Btn1
LocatePointer EDITOR
ClickMB Btn1
InputString "Even more text"
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KLeft
ClickKey KRight
ClickKey KRight
ClickKey KRight
CompareVisual EDITOR

# C)
Continue

# E)
Exit