# $XConsortium: ScrollWin3.scr /main/5 1995/07/17 20:45:40 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 # # /* test case for PIR 2945; test case for PIR 3180 */ # A client containing a ScrolledWindow with no children will appear. # The ScrolledWindow has its scrolledWindowMarginWidth/Height set to 20 # and has a translation installed on its clip window. # /* end of test case for PIR 3180 */ CompareVisual ScrolledWindow2 # Click MB1 in the clip window of the ScrolledWindow. # Press the 't' key. There should be a message in the stdout window saying # "Translation successfully set." # /* end of test case for PIR 2945 */ LocatePointer ScrolledWindow2 ClickMB Btn1 ClickKey Kt Continue # The ScrolledWindow will now contain a DrawingArea which will contain a # Text widget. The DrawingArea will be green in color, while the # ScrolledWindow will be AquaMarine. The ScrolledWindow will have a # scrollingPolicy of XmAPPLICATION_DEFINED, and the scrollbars will be # created independently. CompareVisual ScrolledWindow2 Continue # Click MB1 in the trough area of the horizontal scrollbar. The cursor # will move with each click. When the cursor reaches the end of # the Text area, the Text widget will scroll to the right. LocatePointer ScrolledWindow2 RHorizScrollBarRightSliderArea ClickMB Btn1 LocatePointer ScrolledWindow2 RHorizScrollBarRightSliderArea ClickMB Btn1 LocatePointer ScrolledWindow2 RHorizScrollBarRightSliderArea ClickMB Btn1 LocatePointer ScrolledWindow2 RHorizScrollBarRightSliderArea ClickMB Btn1 LocatePointer ScrolledWindow2 RHorizScrollBarRightSliderArea ClickMB Btn1 CompareVisual ScrolledWindow2 # Click MB1 in the trough area of the vertical scrollbar. The cursor # will move to the next line in the Text widget. When the cursor is on # the last visible line, it will be able to scroll down two more lines # of text. LocatePointer ScrolledWindow2 RVertScrollBarDownSliderArea ClickMB Btn1 LocatePointer ScrolledWindow2 RVertScrollBarDownSliderArea ClickMB Btn1 LocatePointer ScrolledWindow2 RVertScrollBarDownSliderArea ClickMB Btn1 LocatePointer ScrolledWindow2 RVertScrollBarDownSliderArea ClickMB Btn1 LocatePointer ScrolledWindow2 RVertScrollBarDownSliderArea ClickMB Btn1 CompareVisual ScrolledWindow2 # Press . The highlight will now be on the horizontal scrollbar. # Use the Arrow keys to scroll through the entire Text area horizontally. ClickKey KTab ClickKey KLeft ClickKey KLeft ClickKey KLeft ClickKey KLeft ClickKey KLeft ClickKey KLeft CompareVisual ScrolledWindow2 # Press . The highlight now will be in the vertical # scrollbar. Use the Arrow keys again to scroll through the entire Text # area vertically. ClickKey KTab ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KUp CompareVisual ScrolledWindow2 Continue # Two Warning messages will be printed in the term window. The messages # will state: # # "Cannot set a visual policy of CONSTANT in APPLICATION_DEFINED mode." # and # "Cannot set AS_NEEDED scrollbar policy with a # visual policy of VARIABLE." # The scrollbars will now be found on the top and on the right of the Text # widget. # Use the scrollbars to scroll through the entire Text area. LocatePointer ScrolledWindow2 RHorizScrollBarSlider DragSliderValue Right Max LocatePointer ScrolledWindow2 RVertScrollBarSlider DragSliderValue Down Max CompareVisual ScrolledWindow2 LocatePointer ScrolledWindow2 RHorizScrollBarSlider DragSliderValue Left Min LocatePointer ScrolledWindow2 RVertScrollBarSlider DragSliderValue Up Min Continue # The scrollbars will now be found on the left and on the bottom of the # Text widget. Use the scrollbars to scroll through the entire Text area. LocatePointer ScrolledWindow2 RHorizScrollBarSlider DragSliderValue Right Max LocatePointer ScrolledWindow2 RVertScrollBarSlider DragSliderValue Down Max CompareVisual ScrolledWindow2 LocatePointer ScrolledWindow2 RHorizScrollBarSlider DragSliderValue Left Min LocatePointer ScrolledWindow2 RVertScrollBarSlider DragSliderValue Up Min Continue # Automatic and static scrollbars appear on the bottom and on the left # of the Text widget. # Resize the window smaller so that the scrollbars are not completely # filled. Press to put the focus in the text area, and press # the PageDown and PageUp keys. The text should scroll. WindowResize Shell1 SouthEast 200 200 ClickKey KTab ClickKey KPageDown ClickKey KPageUp CompareVisual ScrolledWindow2 Exit