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

#  #) Give the test window the focus. A red border appears around the
#     top text widget.
#     The insertion cursor appears but does not blink.
#  /* this shows PIR 3143 */
#  #) Hold down the Shift key, and press the down arrow three times. 
#  This creates a
#  primary selection.
LocatePointer Text1 RTextChar 5
ClickKey <Shift> KDown
ClickKey <Shift> KDown
ClickKey <Shift> KDown
CompareVisual Text1

#  #) Press the up-arrow key twice, without the Shift key depressed.
#  The insertion cursor moves
#  back to the second line and no text is selected. You should not see more than
#  1 insertion cursor.
ClickKey KUp
ClickKey KUp
CompareVisual Text1

#  C)
Continue

#  #) Press the Ctrl-<Tab>. The focus moves to 
#     the bottom text widget and a red border appears around it.
#     Another message "losingFocusCallback Received" appears in the xterm window
#     By now, there should be at least two such messages.
LocatePointer Text1 RTextChar 5
ClickKey <Ctrl> KTab
CompareVisual Text2

#  #) In this text widget, the insertion cursor blinks.
#     Move the cursor with both keyboard and mouse, and verify that the
#     position printed out in the stdout window is correct.
#     (It should be easy to tell based on the string\!)
ClickKey KRight
ClickKey KRight
ClickKey KRight
ClickKey KLeft
ClickKey KLeft
LocatePointer Text2 RTextChar 2
ClickMB Btn1
LocatePointer Text2 RTextChar 7
ClickMB Btn1
LocatePointer Text2 RTextChar 9
ClickMB Btn1

#  #) Press <Tab>. The highlight appears around the top push button.
ClickKey KTab
CompareVisual PButton1

#  #) Press the space bar, and the push button is pressed.
ClickKey KSpace

#  #) Press Shift-<Tab> twice to return to the top text widget.
ClickKey <Shift> KTab
ClickKey <Shift> KTab
CompareVisual Text1

#  #) Type a long string and the text widget should grow to accommodate it.
InputString "A long string to make the widget grow."
CompareVisual Text1

#  E)
Exit