# $XConsortium: ScrollText3a.scr /main/5 1995/07/17 20:40:24 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
# 

#  @) This test is used to exercise the user-level implementation of the
#  text widgets.  Below is a list of all the keyboard/mouse bindings
#  and their expected actions.  Try each one on all four flavors of
#  text widgets and in both add mode and normal mode on each.
#  #) Scrolling:
#  
#  @)    KPageUp      -- pages up
#  @)    KPageDown    -- pages down
#  @)    KPageLeft    -- pages left
#  @)    KPageRight   -- pages right
LocatePointer Text1 RTextChar Min
ClickMB Btn1
ClickKey KPageDown
CompareVisual Text1
ClickKey KPageUp
CompareVisual Text1
ClickKey <Ctrl> KPageDown
CompareVisual Text1
ClickKey <Ctrl> KPageUp
CompareVisual Text1

LocatePointer Text2 RTextChar Min
ClickMB Btn1
ClickKey KPageDown
CompareVisual Text2
ClickKey KPageUp
CompareVisual Text2
ClickKey <Ctrl> KPageDown
CompareVisual Text2
ClickKey <Ctrl> KPageUp
CompareVisual Text2

LocatePointer Text3 RTextChar Min
ClickMB Btn1
ClickKey KPageDown
CompareVisual Text3
ClickKey KPageUp
CompareVisual Text3
ClickKey <Ctrl> KPageDown
CompareVisual Text3
ClickKey <Ctrl> KPageUp
CompareVisual Text3

LocatePointer Text4 RTextChar Min
ClickMB Btn1
ClickKey KPageDown
CompareVisual Text4
ClickKey KPageUp
CompareVisual Text4
ClickKey <Ctrl> KPageDown
CompareVisual Text4
ClickKey <Ctrl> KPageUp
CompareVisual Text4

#  #ifdef  MOTIF1_1
#  #) With MB1 (primary selection) or MB2 (secondary selection) pressed,
#  moving the pointer beyond the list should
#  scroll the text in that direction.
#  #endif  MOTIF1_1
#  #ifdef  MOTIF1_2
#  #) With MB1 (primary selection) or Alt-MB2 (secondary selection)
#  pressed,
#  moving the pointer beyond the list should
#  scroll the text in that direction.
#  #endif  MOTIF1_2

# (move the window so the locate off will work on top and left)
WindowMove Shell1 20 20

LocatePointer Text1 RTextChar Min
PressMB Btn1
LocatePointer Text1 RTextChar Max
LocatePointer Text1 Down
Wait 20
CompareVisual Text1
ReleaseMB Btn1

LocatePointer Text1 RTextChar Max
PressMB Btn1
LocatePointer Text1 RTextChar Min
LocatePointer Text1 Up
Wait 20
CompareVisual Text1
ReleaseMB Btn1

LocatePointer Text1 RTextChar Min
PressMB Btn1
LocatePointer Text1 Right
Wait 10
CompareVisual Text1
ReleaseMB Btn1

LocatePointer Text1 RTextChar Max
PressMB Btn1
LocatePointer Text1 Left
Wait 10
CompareVisual Text1
ReleaseMB Btn1


LocatePointer Text2 RTextChar Min
PressMB Btn1
LocatePointer Text2 RTextChar Max
LocatePointer Text2 Down
Wait 20
CompareVisual Text2
ReleaseMB Btn1

LocatePointer Text2 RTextChar Max
PressMB Btn1
LocatePointer Text2 RTextChar Min
LocatePointer Text2 Up
Wait 20
CompareVisual Text2
ReleaseMB Btn1

LocatePointer Text2 RTextChar Min 
PressMB Btn1
LocatePointer Text2 RTextChar Max
LocatePointer Text2 Right
Wait 10
CompareVisual Text2
ReleaseMB Btn1

LocatePointer Text2 RTextChar Max
PressMB Btn1
LocatePointer Text2 RTextChar Min 
LocatePointer Text2 Left
Wait 10
CompareVisual Text2
ReleaseMB Btn1


LocatePointer Text3 RTextChar Min
PressMB Btn1
LocatePointer Text3 RTextChar Max
LocatePointer Text3 Down
Wait 20
CompareVisual Text3
ReleaseMB Btn1

LocatePointer Text3 RTextChar Max
PressMB Btn1
LocatePointer Text3 RTextChar Min
LocatePointer Text3 Up
Wait 20
CompareVisual Text3
ReleaseMB Btn1

LocatePointer Text3 RTextChar Min
PressMB Btn1
LocatePointer Text3 Right
Wait 10
CompareVisual Text3
ReleaseMB Btn1

LocatePointer Text3 RTextChar Max
PressMB Btn1
LocatePointer Text3 Left
Wait 10
CompareVisual Text3
ReleaseMB Btn1


LocatePointer Text4 RTextChar Min
PressMB Btn1
LocatePointer Text4 RTextChar Max
LocatePointer Text4 Down
Wait 30
CompareVisual Text4
ReleaseMB Btn1

LocatePointer Text4 RTextChar Max
PressMB Btn1
LocatePointer Text4 RTextChar Min
LocatePointer Text4 Up
Wait 30
CompareVisual Text4
ReleaseMB Btn1

LocatePointer Text4 RTextChar Min 
PressMB Btn1
LocatePointer Text4 Right
Wait 30
CompareVisual Text4
ReleaseMB Btn1

LocatePointer Text4 RTextChar Max
PressMB Btn1
LocatePointer Text4 Left
Wait 30
CompareVisual Text4
ReleaseMB Btn1
LocatePointer Text4
ClickMB Btn1


## w/ Alt-MB2 (for MOTIF1.2)

LocatePointer Text1 RTextChar Min
PressMB <Alt> Btn2
LocatePointer Text1 RTextChar Max
LocatePointer Text1 Down
Wait 20
CompareVisual Text1
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text1 RTextChar Max
PressMB <Alt> Btn2
LocatePointer Text1 RTextChar Min
LocatePointer Text1 Up
Wait 20
CompareVisual Text1
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text1 RTextChar Min 
PressMB <Alt> Btn2
LocatePointer Text1 Right
Wait 10
CompareVisual Text1
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text1 RTextChar Max
PressMB <Alt> Btn2
LocatePointer Text1 Left
Wait 10
CompareVisual Text1
ClickKey KCancel
ReleaseMB <Alt> Btn2


LocatePointer Text2 RTextChar Min
PressMB <Alt> Btn2
LocatePointer Text2 RTextChar Max
LocatePointer Text2 Down
Wait 20
CompareVisual Text2
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text2 RTextChar Max
PressMB <Alt> Btn2
LocatePointer Text2 RTextChar Min
LocatePointer Text2 Up
Wait 20
CompareVisual Text2
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text2 RTextChar Min 
PressMB <Alt> Btn2
LocatePointer Text2 Right
Wait 10
CompareVisual Text2
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text2 RTextChar Max
PressMB <Alt> Btn2
LocatePointer Text2 Left
Wait 10
CompareVisual Text2
ClickKey KCancel
ReleaseMB <Alt> Btn2


LocatePointer Text3 RTextChar Min
PressMB <Alt> Btn2
LocatePointer Text3 RTextChar Max
LocatePointer Text3 Down
Wait 20
CompareVisual Text3
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text3 RTextChar Max
PressMB <Alt> Btn2
LocatePointer Text3 RTextChar Min
LocatePointer Text3 Up
Wait 20
CompareVisual Text3
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text3 RTextChar Min 
PressMB <Alt> Btn2
LocatePointer Text3 Right
Wait 10
CompareVisual Text3
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text3 RTextChar Max
PressMB <Alt> Btn2
LocatePointer Text3 Left
Wait 10
CompareVisual Text3
ClickKey KCancel
ReleaseMB <Alt> Btn2


LocatePointer Text4 RTextChar Min
PressMB <Alt> Btn2
LocatePointer Text4 RTextChar Max
LocatePointer Text4 Down
Wait 30
CompareVisual Text4
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text4 RTextChar Max
PressMB <Alt> Btn2
LocatePointer Text4 RTextChar Min
LocatePointer Text4 Up
Wait 30
CompareVisual Text4
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text4 RTextChar Min
PressMB <Alt> Btn2
LocatePointer Text4 Right
Wait 30
CompareVisual Text4
ClickKey KCancel
ReleaseMB <Alt> Btn2

LocatePointer Text4 RTextChar Max
PressMB <Alt> Btn2
LocatePointer Text4 Left
Wait 30
CompareVisual Text4
ClickKey KCancel
ReleaseMB <Alt> Btn2

##
## in Motif 1.2, test osfPageRight and osfPageLeft
##   (this stuff is at the end so that the visual 
##    files remain in synch - new functionality)
##
## Reset the strings
LocatePointer PushB1
ClickMB Btn1

LocatePointer Text1 RTextChar Min
ClickMB Btn1
ClickKey KPageRight
CompareVisual Text1
ClickKey KPageLeft
CompareVisual Text1

LocatePointer Text2 RTextChar Min
ClickMB Btn1
ClickKey KPageRight
CompareVisual Text2
ClickKey KPageLeft
CompareVisual Text2

LocatePointer Text3 RTextChar Min
ClickMB Btn1
ClickKey KPageRight
CompareVisual Text3
ClickKey KPageLeft
CompareVisual Text3

LocatePointer Text4 RTextChar Min
ClickMB Btn1
ClickKey KPageRight
CompareVisual Text4
ClickKey KPageLeft
CompareVisual Text4


#  E)
Exit