# $XConsortium: Scale4.scr /main/4 1995/07/17 20:36:30 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 client with a vertical scale will appear. The scale # will contain 3 labels to the left of the scale. The labels # will be 'label1', 'label2', and 'label3'. # #) Resize the client window larger. Labels should spread out but remain # on the left of the scale. WindowResize Shell1 SouthEast 200 200 CompareVisual Shell1 # #) Resize the client window smaller. Labels should overlap. WindowResize Shell1 SouthEast 100 100 CompareVisual Shell1 # #) Resize the client window to a usable size. WindowResize Shell1 SouthEast 100 250 CompareVisual Shell1 # #) With the pointer in the scroll area, press the # up arrow key. The callback reason and value # should be printed in the term window. LocatePointer Scale1 RScaleUpOrLeftSliderArea ClickKey KUp CompareVisual Scale1 # #) Press the down arrow key. The callback reason and value # should be printed in the term window. ClickKey KDown CompareVisual Scale1 # #) Press the left arrow key. Nothing should happen. ClickKey KLeft CompareVisual Scale1 # #) Press the right arrow key. Nothing should happen. ClickKey KRight CompareVisual Scale1 # C) Continue # #) Press MB1 on the slider and release without moving. A callback # message should be printed. LocatePointer Scale1 RScaleSlider ClickMB Btn1 CompareVisual Scale1 # #) Press MB1 on the slider and drag the slider. The callback # reason and value should be printed in the term window # as the slider moves. DragSliderValue Up 35 CompareVisual Scale1 # #) Press MB1 in the slider area above the slider. The callback # reason and value should be printed in the term window. LocatePointer Scale1 RScaleUpOrLeftSliderArea PressMB Btn1 Wait 3 ReleaseMB Btn1 CompareVisual Scale1 # #) Press MB1 in the slider area below the slider. The callback # reason and value should be printed in the term window. LocatePointer Scale1 RScaleDownOrRightSliderArea PressMB Btn1 Wait 3 ReleaseMB Btn1 CompareVisual Scale1 # #) Press MB1 in the scale trough. The slider should move all # the way to top or bottom, depending on which side of slider # you clicked in. LocatePointer Scale1 RScaleUpOrLeftSliderArea ClickMB Btn1 CompareVisual Scale1 LocatePointer Scale1 RScaleDownOrRightSliderArea ClickMB Btn1 CompareVisual Scale1 # #) Press MB1 in the scale trough. Nothing should happen. LocatePointer Scale1 RScaleUpOrLeftSliderArea ClickMB Btn1 CompareVisual Scale1 # @) In the next panel, the scale will be HORIZONTAL in orientation. # C) Continue # @) A client with a horizontal scale will appear. The scale # will contain 3 labels on the top of the scale. The labels # will be 'label1', 'label2', and 'label3'. # #) Resize the client window to be larger. Labels should spread out but # remain on to the top of the scale. WindowResize Shell1 SouthEast 200 200 CompareVisual Shell1 # #) Resize the client window smaller. Labels should overlap. WindowResize Shell1 SouthEast 100 100 CompareVisual Shell1 # #) Resize the client window to a usable size. WindowResize Shell1 SouthEast 250 100 CompareVisual Shell1 # #) With the pointer in the scroll area, press the left arrow key. # The callback reason and value should be printed in the term window. LocatePointer Scale1 RScaleDownOrRightSliderArea ClickKey KRight CompareVisual Scale1 # #) Press the right arrow key. The callback # reason and value should be printed in the term window. ClickKey KLeft CompareVisual Scale1 # #) Press the up arrow key. Nothing should happen. ClickKey KUp CompareVisual Scale1 # #) Press the down arrow key. Nothing should happen. ClickKey KDown CompareVisual Scale1 # C) Continue # #) Press MB1 on the slider and release without moving. A callback # message should be printed. LocatePointer Scale1 RScaleSlider ClickMB Btn1 CompareVisual Scale1 # #) Press MB1 on the slider and drag the slider. The callback # reason and value should be printed in the term window. DragSliderValue Right 45 CompareVisual Scale1 # #) Press MB1 in the slider to the left of the slider. The callback # reason and value should be printed in the term window. LocatePointer Scale1 RScaleUpOrLeftSliderArea PressMB Btn1 Wait 3 ReleaseMB Btn1 CompareVisual Scale1 # #) Press MB1 in the slider area to the right of the slider. The callback # reason and value should be printed in the term window. LocatePointer Scale1 RScaleDownOrRightSliderArea PressMB Btn1 Wait 3 ReleaseMB Btn1 CompareVisual Scale1 # #) Press MB1 in the scale trough. The slider should move all the # way to the right or left. LocatePointer Scale1 RScaleUpOrLeftSliderArea ClickMB Btn1 CompareVisual Scale1 LocatePointer Scale1 RScaleDownOrRightSliderArea ClickMB Btn1 CompareVisual Scale1 # #) Press MB1 in the scale trough. Nothing should happen. LocatePointer Scale1 RScaleUpOrLeftSliderArea ClickMB Btn1 CompareVisual Scale1 # E) Exit