# $XConsortium: Text6.scr /main/6 1995/07/17 20:42:08 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
# 

#  /* test case for PIR 3677 */
#  @) The test window shows two text widgets in a Paned Window.
#  Note that the Shell window size is 400W x 300H, and
#  the top Text widget is one row high while the second fills the
#  rest of the Shell window size.
#  /* end of test case for PIR 3677 */
CompareVisual Shell1


# Give focus to the test client window. 
#   The focus should be at the start of the text in Text1.
# Press the Tab key twice. Focus should be in Text2.
# Type the word 'The' and a space. The string should read \"The Sample Text2\".
# After you press continue, the test will verify the contents of 
#  Text2 and print out an error message if CR xxxx is still present.

LocatePointer Text1 RTextChar 0
DragComponent Text1 RTextChar 4 Btn2
ClickKey KTab
ClickKey KTab
InputString "The "
Continue

#) Check the results of the previous panel for an error message.
#) If this test failed, the results for the 
#   remainder of this test will most likely be corrupted. 
#   You may wish to rerun the test and skip the MB2 Drag on Panel 1.

Continue

#  #) Move the pointer into the top text widget and click MB1.
#     The insertion cursor should appear.

LocatePointer Text1 RTextChar 5
ClickMB Btn1

#  #) Press the return key. The text should change to
#     "The <Return> Key was pressed." and a message indicating the
#     callback reason should appear in the stdout window.
ClickKey KReturn
CompareVisual Text1

#  C)
Continue

#  #) Move the pointer into the bottom text widget and click MB1.
#     The insertion cursor should appear.
LocatePointer Text2 RTextChar 5
ClickMB Btn1
CompareVisual Text2

#  #) Press the return key. A newline is inserted but the message should not
#     change. 
ClickKey KReturn
CompareVisual Text2

#  C)
Continue

#  #) Put the pointer into the bottom text widget and press <Ctrl> r.  The text
#     in the bottom widget should change to "Changed the string.".
#     (Note that the bottom text widget will not get a focus highlight or
#     respond to any other keystrokes.  The only tranlation it currently
#     recognizes is <Ctrl> r.)
LocatePointer Text2 RTextChar 7
ClickKey <Ctrl> Kr
CompareVisual Text2

#  C)
Continue

#  #) Click MB1 in the top text widget.
LocatePointer Text1 RTextChar 5
ClickMB Btn1

#  /* test case for PIR 1772, PIR 1058 */
#  #) Type some text.
#     For each character typed, messages indicating the callback reasons
#     should appear in the stdout window.
#     You should see "XmCR_MODIFYING_TEXT_VALUE" before
#     "XmCR_VALUE_CHANGED".
InputString "new"

#  #) Select text elsewhere in the text widget.
#     Click MB2 to paste the text.
#     Messages indicating the callback reasons should appear in the
#     stdout window.
#     You should see "XmCR_MODIFYING_TEXT_VALUE" before
#     "XmCR_VALUE_CHANGED".
#  /* end of test case for PIR 1772, PIR 1058 */
LocatePointer Text1 RTextChar 10
DragComponent Text1 RTextChar 15
LocatePointer Text1 RTextChar 2
ClickMB Btn2

# C)
Continue

# /*  Begin CR 6141 */
# Click MB1 on the pushbutton labelled \"Set String\" to add text into the text
# widget.
# Move the insertion cursor to position 3, which is immediately after the
# word \"New\".
# Click MB1 on the pushbutton labelled \"Insert\" which will insert new
# text at position 3.
# Verify that the insertion cursor moved to the end of the newly
# inserted text.
# /* End CR 6141 */
LocatePointer SetStringPB
ClickMB Btn1

LocatePointer Text1 RTextChar 3
ClickMB Btn1
LocatePointer InsertStringPB
ClickMB Btn1
CompareVisual Text1

# C)
Continue

#  E)
Exit