# $XConsortium: ScrollWin4.scr /main/6 1995/07/17 20:45:46 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 # # A Scrolled Window with horizontal and vertical scrollbars should # appear. The scrollbars should be on top and on the left. The background # of the ScrolledWindow should be white. The work area of the ScrolledWindow # should contain a DrawingArea with two ArrowButtons. The ArrowButtons # should have coral and violet backgrounds respectively. XmNspacing should # be set at 20 for the ScrolledWindow. CompareVisual ScrolledWindow1 # Move the slider on the vertical scrollbar until the second violet colored # ArrowButton appears. LocatePointer ScrolledWindow1 RVertScrollBarSlider DragSliderValue Down Max # Press Shift until the hightlight is in the work area with the # Arrow Buttons. ClickKey KTab ClickKey KTab # Press the KSelect key (Space Bar). An Activate Callback message should be # printed in the term window. ClickKey KSelect # Press the Down Arrow Key. Then press KSelect again. Another message should # be printed in the term window. ClickKey KDown ClickKey KSelect # Move the horizontal scrollbars slider all the way to the right. The Drawing # Area and it's contents should scroll to the right. LocatePointer ScrolledWindow1 RHorizScrollBarSlider DragSliderValue Right Max Continue # The size of the ArrowButtons should have been increased to 500x500 for # each PushButton. CompareVisual ScrolledWindow1 # Move the slider on the vertical scrollbar until the second PushButton # is visible. LocatePointer ScrolledWindow1 RVertScrollBarSlider DragSliderValue Down 51 # Press MB1 in PushButton1 (Coral colored). An activate Callback message # should be printed in the term window. LocatePointer ArrowButton1 ClickMB Btn1 # Press Shift until the hightlight is in the work area with the Arrow # Buttons. ClickKey KTab ClickKey KTab ClickKey KTab # Press . The ScrolledWindow should scroll all the way to the top. ClickKey KBeginData # Press . The ScrolledWindow should scroll to the end of the window. ClickKey KEndData Continue # PushButton1 (Coral) should now be Unmanaged and should not be visible. CompareVisual ScrolledWindow1 # Use the vertical scrollbars to scroll to the Violet PushButton. LocatePointer ScrolledWindow1 RVertScrollBarSlider DragSliderValue Down Max Continue # PushButton2 (Violet) and the DrawingArea should now be Unmanaged and # nothing should be visible. CompareVisual ScrolledWindow1 Continue # All widgets should be managed again, and everthing should be visible. CompareVisual ScrolledWindow1 # Use the scrollbars to \"Look At\" all of the widgets. LocatePointer ScrolledWindow1 RHorizScrollBarSlider DragSliderValue Right Max LocatePointer ScrolledWindow1 RVertScrollBarSlider DragSliderValue Down Max # Press Shift until the hightlight is in the work area with the Arrow # Buttons. ClickKey KTab ClickKey KTab # Press KPageUp. The ScrolledWindow should scroll upwards one page. ClickKey KPageUp # Press KPageDown. The ScrolledWindow should scroll downwards one page. ClickKey KPageDown Continue # The width and the height of the ArrowButtons should now change to 175. # This should cause the horizontal scrollbar to disappear. CompareVisual ScrolledWindow1 # Use the vertical scrollbar to \"Look At\" all of the widgets. LocatePointer ScrolledWindow1 RVertScrollBarSlider DragSliderValue Down Max DragSliderValue Up Min Continue # The width and height of the ScrolledWindow should now be 125. This # should cause the window to shrink and the horizontal scrollbar to reappear. # Use the horizontal and vertical scrollbars to \"Look At\" all of # the widgets. CompareVisual ScrolledWindow1 LocatePointer ScrolledWindow1 RVertScrollBarSlider DragSliderValue Down Max DragSliderValue Up Min LocatePointer ScrolledWindow1 RHorizScrollBarSlider DragSliderValue Right Max DragSliderValue Left Min Continue # The width and height of the ScrolledWindow should now be 250. This # should cause the window to expand to the point that no scrollbars should # be present. CompareVisual ScrolledWindow1 # Press Kselect. An Activate Callback message will be printed in the term # window. ClickKey KSelect # Press the Down Arrow Key. Then press KSelect. Another Activate Callback # message will be printed in the term window. ClickKey KDown ClickKey KSelect Continue # The Drawing Area should have been UnMapped. No widgets # should be visible. CompareVisual Shell1 Continue # The Drawing Area should have been Mapped again. All widgets # should be visible. CompareVisual Shell1 Continue # /* test case for PIR 3580 */ # The ArrowButtons are larger now and the horizontal and vertical # scrollbars should have reappeared. The scrollbars are not traversable. # Drag both scrollbar sliders using MB1 to scroll through the # Scrolled Window area. The highlight should remain on one of the # two ArrowButtons and never on either scrollbar. LocatePointer ScrolledWindow1 RVertScrollBarSlider DragSliderValue Down Max DragSliderValue Up Min LocatePointer ScrolledWindow1 RHorizScrollBarSlider DragSliderValue Right Max DragSliderValue Left Min CompareVisual Shell1 # Press KTab. Nothing should happen. ClickKey KTab CompareVisual Shell1 # Press KUp and KDown a few times. The traversal highlight should # go back and forth between the ArrowButtons, but never leave the # DrawingArea. # /* end of test case for PIR 3580 */ ClickKey KUp ClickKey KUp ClickKey KUp ClickKey KDown ClickKey KDown CompareVisual Shell1 Exit