# $XConsortium: ScrollText1a.scr /main/4 1995/07/17 20:40:12 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

# #) This ScrolledText widget was created with its layout direction set
# as Right-to-Left. The vertical scrollbar should appear to the left of
# the text and the horizontal scrollbar should be flushed to the right.

#  #) Click MB1 anywhere in the text widget.
LocatePointer Text1

#  #) Press the sequence Shift-osfPageDown, and the text will change.
ClickKey <Shift> KPageDown
CompareVisual Text1

#  #) Press the sequence Shift-osfPageDown again and the text will change back.
ClickKey <Shift> KPageDown
CompareVisual Text1

#  C)
Continue

#  #) Place the pointer in the text widget again, and press the Help key.
#     An information box will appear. Press the Dismiss button.
LocatePointer Text1
ClickKey KHelp
CompareVisual info_box
LocatePointer info_box ROkButton
ClickMB Btn1

#  C)	
Continue

#  /* test case for PIR 2574 */
#  #) Give the text window the focus.  Click MB1 after the last word in the
#     text widget.
LocatePointer Text1
ClickMB Btn1
ClickKey KEndData

#  #) Type in ten lines of lines of new text.  The scrollbar slider should be
#  at the bottom of the trough.
ClickKey KReturn
InputString "line 1"
ClickKey KReturn
InputString "line 2"
ClickKey KReturn
InputString "line 3"
ClickKey KReturn
InputString "line 4"
ClickKey KReturn
InputString "line 5"
ClickKey KReturn
InputString "line 6"
ClickKey KReturn
InputString "line 7"
ClickKey KReturn
InputString "line 8"
ClickKey KReturn
InputString "line 9"
ClickKey KReturn
InputString "line 10"
CompareVisual Text1

#  #) Iconify and deiconify the window or otherwise cause it to be re-exposed.
WindowIconify Shell1
WindowDeiconify Shell1

#  #) Confirm that the location of the text does not change within the window.
#  /* end of test case for PIR 2574 */
CompareVisual Text1

#  C)
Continue

#  /* test case for PIR 2127 */
#  @) The text widget should now be displayed in the "variable" font
#     and the string should have changed.
CompareVisual Text1

#  #) Click MB1 just before any of the j's in the string and type a
#     few spaces.  Verify that no pieces of the character glyphs remain
#     where the spaces now are.
#  /* end of test case for PIR 2127 */
LocatePointer Text1 RTextChar 11
ClickMB Btn1
InputString "   "
CompareVisual Text1

#  /* test case for PIR 4120 */
#  C)
Continue

#  @) The text widget has been destroyed and recreated.  It was created as a
#  Scrolled Text widget with editMode == XmSINGLE_LINE_EDIT, rows == 3.
#  #) Confirm that there is no vertical scrollbar present.
CompareVisual BBoard1

#  #) Click on the togglebutton to switch the EditMode to
#  XmMULTI_LINE_EDIT.  Confirm that a vertical scrollbar is generated.
#  Use the vertical scrollbar to scroll through the text.
LocatePointer ToggleB1
ClickMB Btn1
CompareVisual BBoard1
LocatePointer Text2 RVertScrollBarSlider
DragSliderValue Down Max
CompareVisual BBoard1
DragSliderValue Up Min
CompareVisual BBoard1

#  #) Click on the togglebutton again to switch the EditMode back to 
#  XmSINGLE_LINE_EDIT.  The vertical scrollbar should disappear and the text
#  widget should return to only displaying 1 line.
LocatePointer ToggleB1
ClickMB Btn1
CompareVisual BBoard1

#  /* end of test case for PIR 4120 */
#  E)
Exit