# $XConsortium: ScrollText3c.scr /main/5 1995/07/17 20:40:37 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 # # #) 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 KSelect CompareVisual Text1 LocatePointer Text2 RTextChar 5 DragComponent Text2 RTextChar 12 ClickKey KSelect CompareVisual Text2 LocatePointer Text3 RTextChar 5 DragComponent Text3 RTextChar 12 ClickKey KSelect CompareVisual Text3 LocatePointer Text4 RTextChar 5 DragComponent Text4 RTextChar 12 ClickKey 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 KSelect CompareVisual Text1 ClickKey KRight ClickKey KRight ClickKey KSelect CompareVisual Text1 LocatePointer Text2 RTextChar 5 ClickMB Btn1 ClickKey KSelect ClickKey KRight ClickKey KRight ClickKey KSelect CompareVisual Text2 ClickKey KRight ClickKey KRight ClickKey KSelect CompareVisual Text2 LocatePointer Text3 RTextChar 5 ClickMB Btn1 ClickKey KSelect ClickKey KRight ClickKey KRight ClickKey KSelect CompareVisual Text3 ClickKey KRight ClickKey KRight ClickKey KSelect CompareVisual Text3 LocatePointer Text4 RTextChar 5 ClickMB Btn1 ClickKey KSelect ClickKey KRight ClickKey KRight ClickKey KSelect CompareVisual Text4 ClickKey KRight ClickKey KRight ClickKey KSelect CompareVisual Text4 # @) Shift -- 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 KRight ClickKey KRight CompareVisual Text1 LocatePointer Text2 RTextChar 5 ClickMB Btn1 ClickKey KSelect ClickKey KRight ClickKey KRight CompareVisual Text2 LocatePointer Text3 RTextChar 5 ClickMB Btn1 ClickKey KSelect ClickKey KRight ClickKey KRight CompareVisual Text3 LocatePointer Text4 RTextChar 5 ClickMB Btn1 ClickKey KSelect ClickKey KRight ClickKey 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 KSpace CompareVisual Text1 LocatePointer Text2 ClickMB Btn1 ClickKey KBeginData LocatePointer Text2 RTextChar 5 DragComponent Text2 RTextChar 12 ClickKey KSpace CompareVisual Text2 LocatePointer Text3 ClickMB Btn1 ClickKey KBeginData LocatePointer Text3 RTextChar 5 DragComponent Text3 RTextChar 12 ClickKey KSpace CompareVisual Text3 LocatePointer Text4 ClickMB Btn1 ClickKey KBeginData LocatePointer Text4 RTextChar 5 DragComponent Text4 RTextChar 12 ClickKey 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 KSpace CompareVisual Text1 LocatePointer Text2 RTextChar 5 ClickMB Btn1 ClickKey KSelect ClickKey KRight ClickKey KRight ClickKey KSpace CompareVisual Text2 LocatePointer Text3 RTextChar 5 ClickMB Btn1 ClickKey KSelect ClickKey KRight ClickKey KRight ClickKey KSpace CompareVisual Text3 LocatePointer Text4 RTextChar 5 ClickMB Btn1 ClickKey KSelect ClickKey KRight ClickKey KRight ClickKey KSpace CompareVisual Text4 # @) Shift -- 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 KPageDown ClickKey KPageDown ClickKey KAddMode ClickKey KUp ClickKey KUp ClickKey KUp CompareVisual Text1 ClickKey KPageUp ClickKey KUp CompareVisual Text1 LocatePointer Text3 RTextChar 5 ClickMB Btn1 ClickKey KPageDown ClickKey KPageDown ClickKey KAddMode ClickKey KUp ClickKey KUp ClickKey KUp CompareVisual Text3 ClickKey KPageUp ClickKey KUp CompareVisual Text3 # C) Exit