#
# Motif
#
# Copyright (c) 1987-2012, The Open Group. All rights reserved.
#
# These libraries and programs are free software; you can
# redistribute them and/or modify them under the terms of the GNU
# Lesser General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option)
# any later version.
#
# These libraries and programs are distributed in the hope that
# they will be useful, but WITHOUT ANY WARRANTY; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU Lesser General Public License for more
# details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with these librararies and programs; if not, write
# to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
# Floor, Boston, MA 02110-1301 USA
#
#
# HISTORY
#

#   $XConsortium: Scrollbar5.scr /main/4 1995/07/13 19:15:20 drk $ 


# A client with a scrollbar contained in a frame should appear. The
# scrollbar should be vertical with height set at 250 and
# width at 50. 

CompareVisual scrollbar

# Press MB1 in the DOWN arrow area of the scrollbar. The callback
# reason and value should be printed in the term window. 

LocatePointer scrollbar RDownOrRightArrow
ClickMB Btn1
CompareVisual scrollbar

# Press MB1 in the UP arrow area of the scrollbar. The callback
# reason and value should be printed in the term window. 

LocatePointer scrollbar RUpOrLeftArrow
ClickMB Btn1
CompareVisual scrollbar

# Press the DOWN arrow key in the scrollbar. The callback reason and value
# should be printed in the term window. 

LocatePointer scrollbar
ClickKey KDown
CompareVisual scrollbar

# Press the UP arrow key in the scrollbar. The callback reason and value
# should be printed in the term window. 

LocatePointer scrollbar
ClickKey KUp
CompareVisual scrollbar

# Press the LEFT arrow key in the scrollbar. Nothing should happen. 
# Press the RIGHT arrow key in the scrollbar. Nothing should happen. 

ClickKey KLeft
CompareVisual scrollbar
ClickKey KRight
CompareVisual scrollbar
Continue

# Press MB1 on the slider and release without moving. No visual
# change should occur, but the callback reason and value
# should be printed in the term window. 

LocatePointer scrollbar RSlider
ClickMB Btn1 
CompareVisual scrollbar

# Press MB1 on the slider and drag the slider downwards. The callback
# reason and value should be printed as the slider moves. 

LocatePointer scrollbar RSlider
DragSliderValue Down 25 Btn1
Wait 5
CompareVisual scrollbar

# Press MB1 in the slider area below the slider. The callback reason
# and value should be printed in the term window. 

LocatePointer scrollbar RDownOrRightSliderArea
ClickMB Btn1
CompareVisual scrollbar

# Press <Shift> MB1 in the scrollbar's DOWN arrow. Nothing should happen. 

LocatePointer scrollbar RDownOrRightArrow
ClickMB <Shift> Btn1
CompareVisual scrollbar

# Press <Ctrl> MB1 in the scrollbar's DOWN arrow. The callback reason
# and value should be printed in the term window. 

LocatePointer scrollbar RDownOrRightArrow
ClickMB <Ctrl> Btn1
CompareVisual scrollbar

# Press <Ctrl> MB1 in the scrollbar's UP Arrow. The callback reason and
# value should be printed in the term window. 

LocatePointer scrollbar RUpOrLeftArrow
ClickMB <Ctrl> Btn1
CompareVisual scrollbar

# Continue to have Orientation change to HORIZONTAL. 

Continue 
CompareVisual scrollbar

# A client with a scrollbar contained in a frame should appear. The
# scrollbar should be horizontal with width set at 250 and
# height at 50. 


# Press MB1 in the RIGHT arrow area of the scrollbar. The callback
# reason and value should be printed in the term window. 

LocatePointer scrollbar RDownOrRightArrow
ClickMB Btn1 
CompareVisual scrollbar

# Press MB1 in the LEFT arrow area of the scrollbar. The callback
# reason and value should be printed in the term window. 

LocatePointer scrollbar RUpOrLeftArrow
ClickMB Btn1
CompareVisual scrollbar

# Press the RIGHT arrow key in the scrollbar. The callback reason and value
# should be printed in the term window. 

LocatePointer scrollbar
ClickKey KRight
CompareVisual scrollbar

# Press the LEFT arrow key in the scrollbar. The callback reason and value
# should be printed in the term window. 

ClickKey KLeft
CompareVisual scrollbar

# Press the UP arrow key in the scrollbar. Nothing should happen. 

ClickKey KUp
CompareVisual scrollbar

# Press the DOWN arrow key in the scrollbar. Nothing should happen. 

ClickKey KDown
CompareVisual scrollbar
Continue

# Press MB1 on the slider and release without moving. No visual
# change should occur, but the callback reason and value
# should be printed in the xterm window. 

LocatePointer scrollbar RSlider
ClickMB Btn1
CompareVisual scrollbar

# Press MB1 on the slider and drag the slider. The callback
# reason and value should be printed as the slider moves. 

DragSliderValue Right 15 Btn1
CompareVisual scrollbar
DragSliderValue Left 5  Btn1
CompareVisual scrollbar

# Press MB1 in the slider area to the left of the slider. The callback
# reason and value should be printed in the term window. 

LocatePointer scrollbar RUpOrLeftSliderArea
ClickMB Btn1
CompareVisual scrollbar

# Press <Shift> MB1 in the scrollbar's right arrow. Nothing should happen. 

LocatePointer scrollbar RDownOrRightArrow
ClickMB<Shift> Btn1
CompareVisual scrollbar

# Press <Ctrl> MB1 in the scrollbar's RIGHT arrow. The callback reason
# and value should be printed in the term window. 

ClickMB <Ctrl> Btn1
CompareVisual scrollbar

# Press <Ctrl> MB1 in the scrollbar's LEFT arrow. The callback reason
# and value should be printed in the term window.

LocatePointer scrollbar RUpOrLeftArrow
ClickMB <Ctrl> Btn1
CompareVisual scrollbar
Continue

Exit