source-git / motif

Clone
Source Code
GIT

Files

c8 master
  1.   c8
  2.   tests
  3.   Toolkit
  4.   Text
  5.   ScrollText3c.scr
Blob Blame History Raw 
# $XConsortium: ScrollText3c.scr /main/5 1995/07/17 20:40:37 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
# 

#  #) Keyboard Selection -- Add Mode & Normal Mode:
#  
#  @)    KSelect       -- clears the current selection and sets the
#                      anchor
LocatePointer Text1
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text1 RTextChar 5
DragComponent Text1 RTextChar 12
ClickKey KSelect
CompareVisual Text1

LocatePointer Text2
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text2 RTextChar 5
DragComponent Text2 RTextChar 12
ClickKey KSelect
CompareVisual Text2

LocatePointer Text3
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text3 RTextChar 5
DragComponent Text3 RTextChar 12
ClickKey KSelect
CompareVisual Text3

LocatePointer Text4
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text4 RTextChar 5
DragComponent Text4 RTextChar 12
ClickKey KSelect
CompareVisual Text4

#  #ifdef	MOTIF1_1
#  @)    Ctrl KSelect  -- Same as KSelect (Ctrl SELECT is allowed to
#                      have no effect)
#  #endif	MOTIF1_1
#  #ifdef	MOTIF1_2
#  @)    Ctrl KSelect   -- no effect
#  #endif	MOTIF1_2
#
LocatePointer Text1 RTextChar 5
DragComponent Text1 RTextChar 12
ClickKey <Ctrl> KSelect
CompareVisual Text1

LocatePointer Text2 RTextChar 5
DragComponent Text2 RTextChar 12
ClickKey <Ctrl> KSelect
CompareVisual Text2

LocatePointer Text3 RTextChar 5
DragComponent Text3 RTextChar 12
ClickKey <Ctrl> KSelect
CompareVisual Text3

LocatePointer Text4 RTextChar 5
DragComponent Text4 RTextChar 12
ClickKey <Ctrl> KSelect
CompareVisual Text4

#  @)    Shift KSelect -- selects the text between the anchor and the
#                      cursor, takes ownership of primary selection
#  @)    Ctrl Shift KSelect   -- no effect
#  
LocatePointer Text1 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Shift> KSelect
CompareVisual Text1
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSelect
CompareVisual Text1

LocatePointer Text2 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Shift> KSelect
CompareVisual Text2
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSelect
CompareVisual Text2

LocatePointer Text3 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Shift> KSelect
CompareVisual Text3
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSelect
CompareVisual Text3

LocatePointer Text4 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Shift> KSelect
CompareVisual Text4
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSelect
CompareVisual Text4


#  @)    Shift <navigation operation> -- moves the cursor as indicated,
#                      selects the text between the anchor and the
#                      cursor, takes ownership of primary selection
#                      (Rebalances the anchor if necessary)
#  #ifdef  MOTIF1_2
#                      Includes Shift PageUp/PageDown
##
## NOTE: these are tested at the end of the file.
##
#  #endif  MOTIF1_2
#  
LocatePointer Text1 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey <Shift> KRight
ClickKey <Shift> KRight
CompareVisual Text1

LocatePointer Text2 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey <Shift> KRight
ClickKey <Shift> KRight
CompareVisual Text2

LocatePointer Text3 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey <Shift> KRight
ClickKey <Shift> KRight
CompareVisual Text3

LocatePointer Text4 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey <Shift> KRight
ClickKey <Shift> KRight
CompareVisual Text4

#  @)    KSelectAll    -- selects entire text and takes ownership of
#                      primary selection
#  
#  @)    KDeselectAll  -- deselects everything in that widget
#
LocatePointer Text1 RTextChar 5
ClickMB Btn1
ClickKey KSelectAll
CompareVisual Text1
LocatePointer Text1 RTextChar 5
ClickMB Btn1 2
ClickKey KDeselectAll
CompareVisual Text1

LocatePointer Text2 RTextChar 5
ClickMB Btn1
ClickKey KSelectAll
CompareVisual Text2
LocatePointer Text2 RTextChar 5
ClickMB Btn1 2
ClickKey KDeselectAll
CompareVisual Text2

LocatePointer Text3 RTextChar 5
ClickMB Btn1
ClickKey KSelectAll
CompareVisual Text3
LocatePointer Text3 RTextChar 5
ClickMB Btn1 2
ClickKey KDeselectAll
CompareVisual Text3

LocatePointer Text4 RTextChar 5
ClickMB Btn1
ClickKey KSelectAll
CompareVisual Text4
LocatePointer Text4 RTextChar 5
ClickMB Btn1 2
ClickKey KDeselectAll
CompareVisual Text4

## New tests for Motif 1.2, have to be at end so Visuals stay in
## synch for the rest of the compares.


#  #) Keyboard Selection -- Add Mode & Normal Mode:
#  
## ...
#  @)    Ctrl Space    -- same as KSelect
## Reset Strings to original value
LocatePointer PushB1
ClickMB Btn1

LocatePointer Text1
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text1 RTextChar 5
DragComponent Text1 RTextChar 12
ClickKey <Ctrl> KSpace
CompareVisual Text1

LocatePointer Text2
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text2 RTextChar 5
DragComponent Text2 RTextChar 12
ClickKey <Ctrl> KSpace
CompareVisual Text2

LocatePointer Text3
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text3 RTextChar 5
DragComponent Text3 RTextChar 12
ClickKey <Ctrl> KSpace
CompareVisual Text3

LocatePointer Text4
ClickMB Btn1
ClickKey KBeginData
LocatePointer Text4 RTextChar 5
DragComponent Text4 RTextChar 12
ClickKey <Ctrl> KSpace
CompareVisual Text4

#  @)    Ctrl Shift Space     -- same as Shift KSelect
## Reset Strings to original value
LocatePointer PushB1
ClickMB Btn1

LocatePointer Text1 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSpace
CompareVisual Text1

LocatePointer Text2 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSpace
CompareVisual Text2

LocatePointer Text3 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSpace
CompareVisual Text3

LocatePointer Text4 RTextChar 5
ClickMB Btn1
ClickKey KSelect
ClickKey KRight
ClickKey KRight
ClickKey <Ctrl> <Shift> KSpace
CompareVisual Text4

#  @)    Shift <navigation operation> -- moves the cursor as indicated,
#                      selects the text between the anchor and the
#                      cursor, takes ownership of primary selection
#                      (Rebalances the anchor if necessary)
#                      Includes Shift PageUp/PageDown
#
## Reset Strings to original value
LocatePointer PushB1
ClickMB Btn1

LocatePointer Text1 RTextChar 5
ClickMB Btn1
ClickKey <Shift> KPageDown
ClickKey <Shift> KPageDown
ClickKey KAddMode
ClickKey KUp
ClickKey KUp
ClickKey KUp
CompareVisual Text1
ClickKey <Shift> KPageUp
ClickKey KUp
CompareVisual Text1

LocatePointer Text3 RTextChar 5
ClickMB Btn1
ClickKey <Shift> KPageDown
ClickKey <Shift> KPageDown
ClickKey KAddMode
ClickKey KUp
ClickKey KUp
ClickKey KUp
CompareVisual Text3
ClickKey <Shift> KPageUp
ClickKey KUp
CompareVisual Text3


#  C)
Exit

Powered by Pagure 5.14.1

SSH Hostkey/Fingerprint | Documentation