# $XConsortium: ScrollWin6.scr /main/4 1995/07/17 20:45:58 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 */ #) Testing the XmNscrolledWindowChildType resource of the # ScrollingWindow widget. You should see a scrolled window whose # childType is XmNO_SCROLL #) There should be no scrollbars visible. WindowFocus Shell1 CompareVisual scrollwin1 Continue #) Testing the XmNscrolledWindowChildType resource of the # ScrollingWindow widget. You should see a scrolled window whose # childType is XmSCROLL_VERT. #) There will be two scroll bars visible but only the vertical # scrollbar does anything. Try scrolling by using the mouse in both # the horizontal and vertical scrollbars. #) Now try scrolling using the keyboard. Use KTab to move from the # vertical scrollbar to the horizontal one and vice versa. Then # use the KUp, KDown, KLeft, KRight, MCtrl KUp, MCtrl KDown, MCtrl # KRight and MCtrl KLeft keys. The work window should only move # vertically. WindowFocus Shell1 LocatePointer scrollwin1 RVertScrollBarDownArrow ClickMB Btn1 CompareVisual scrollwin1 ClickMB Btn1 LocatePointer scrollwin1 RVertScrollBarUpArrow ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RVertScrollBarDownSliderArea ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RVertScrollBarUpSliderArea ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RHorizScrollBarRightArrow ClickMB Btn1 ClickMB Btn1 ClickMB Btn1 ClickMB Btn1 LocatePointer scrollwin1 RHorizScrollBarLeftArrow ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RHorizScrollBarRightSliderArea ClickMB Btn1 ClickMB Btn1 LocatePointer scrollwin1 RHorizScrollBarLeftSliderArea ClickMB Btn1 CompareVisual scrollwin1 ClickKey KTab ClickKey KDown ClickKey KDown ClickKey KDown ClickKey KUp CompareVisual scrollwin1 ClickKey KDown CompareVisual scrollwin1 ClickKey KUp CompareVisual scrollwin1 ClickKey KTab ClickKey KRight ClickKey KRight ClickKey KRight ClickKey KLeft CompareVisual scrollwin1 ClickKey KRight CompareVisual scrollwin1 ClickKey KLeft CompareVisual scrollwin1 Continue #) Testing the XmNscrolledWindowChildType resource of the # ScrollingWindow widget. You should see a scrolled window whose # childType is XmSCROLL_HOR. #) There will be two scroll bars visible but only the horizontal # scrollbar does anything. Try scrolling by using the mouse in both # the horizontal and vertical scrollbars. #) Now try scrolling using the keyboard. Use KTab to move from the # vertical scrollbar to the horizontal one and vice versa. Then # use the KUp, KDown, KLeft, KRight, MCtrl KUp, MCtrl KDown, MCtrl # KRight and MCtrl KLeft keys. The work window should only move # horizontally. WindowFocus Shell1 LocatePointer scrollwin1 RHorizScrollBarRightArrow ClickMB Btn1 CompareVisual scrollwin1 ClickMB Btn1 LocatePointer scrollwin1 RHorizScrollBarLeftArrow ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RHorizScrollBarRightSliderArea ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RHorizScrollBarLeftSliderArea ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RVertScrollBarDownArrow ClickMB Btn1 ClickMB Btn1 ClickMB Btn1 ClickMB Btn1 LocatePointer scrollwin1 RVertScrollBarUpArrow ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RVertScrollBarDownSliderArea ClickMB Btn1 ClickMB Btn1 LocatePointer scrollwin1 RVertScrollBarUpSliderArea ClickMB Btn1 CompareVisual scrollwin1 ClickKey KTab ClickKey KRight ClickKey KRight ClickKey KRight ClickKey KLeft CompareVisual scrollwin1 ClickKey KRight CompareVisual scrollwin1 ClickKey KLeft CompareVisual scrollwin1 ClickKey KTab ClickKey KDown ClickKey KDown ClickKey KDown ClickKey KUp CompareVisual scrollwin1 ClickKey KDown CompareVisual scrollwin1 ClickKey KUp CompareVisual scrollwin1 Continue #) Testing the XmNscrolledWindowChildType resource of the # ScrollingWindow widget. You should see a scrolled window whose # childType is XmWORK_AREA #) There will be two scroll bars visible and both should work. Try # scrolling by using the mouse in both the horizontal and vertical # scrollbars. #) Now try scrolling using the keyboard. Use KTab to move from the # vertical scrollbar to the horizontal one and vice versa. Then # use the KUp, KDown, KLeft, KRight, MCtrl KUp, MCtrl KDown, MCtrl # KRight and MCtrl KLeft keys. The work window should move in both # directions. WindowFocus Shell1 LocatePointer scrollwin1 RHorizScrollBarRightArrow ClickMB Btn1 CompareVisual scrollwin1 ClickMB Btn1 LocatePointer scrollwin1 RHorizScrollBarLeftArrow ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RHorizScrollBarRightSliderArea ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RHorizScrollBarLeftSliderArea ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RVertScrollBarDownArrow ClickMB Btn1 ClickMB Btn1 ClickMB Btn1 ClickMB Btn1 LocatePointer scrollwin1 RVertScrollBarUpArrow ClickMB Btn1 CompareVisual scrollwin1 LocatePointer scrollwin1 RVertScrollBarDownSliderArea ClickMB Btn1 ClickMB Btn1 LocatePointer scrollwin1 RVertScrollBarUpSliderArea ClickMB Btn1 CompareVisual scrollwin1 ClickKey KTab ClickKey KRight ClickKey KRight ClickKey KRight ClickKey KLeft CompareVisual scrollwin1 ClickKey KRight CompareVisual scrollwin1 ClickKey KLeft CompareVisual scrollwin1 ClickKey KTab ClickKey KDown ClickKey KDown ClickKey KDown ClickKey KUp CompareVisual scrollwin1 ClickKey KDown CompareVisual scrollwin1 ClickKey KUp CompareVisual scrollwin1 Continue #) Testing the XmNscrolledWindowChildType resource of the # ScrollingWindow widget. You should see a scrolled window with two # scrollbars whose childType is XmHOR_SCROLLBAR and XmVERT_SCROLLBAR. # The two scrollbars should have wide shadows. WindowFocus Shell1 CompareVisual scrollwin1 Exit