# $XConsortium: Text4.scr /main/6 1995/07/17 20:41:56 drk $
#
# Motif
#
# Copyright (c) 1987-2012, The Open Group. All rights reserved.
#
# These libraries and programs are free software; you can
# redistribute them and/or modify them under the terms of the GNU
# Lesser General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option)
# any later version.
#
# These libraries and programs are distributed in the hope that
# they will be useful, but WITHOUT ANY WARRANTY; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU Lesser General Public License for more
# details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with these librararies and programs; if not, write
# to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
# Floor, Boston, MA 02110-1301 USA
#
#
# 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