#
# 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: Scrollbar11.scr /main/4 1995/07/13 19:14:06 drk $
# A client with two vertical scrollbars will appear. Both will have
# a minimum value of 0 and a maximum value of 90. The one on the left
# will have the maximum on the top, the one on the right will have the
# maximum on the bottom.
CompareVisual scrollbar1
CompareVisual scrollbar2
# Verify the maximum and minimum are in the correct place for each
# scrollbar. Use the Up/Down arrow keys to change the value of the
# Scrollbar. (The value will be displayed in the stdout window.)
LocatePointer scrollbar1
ClickKey KUp
ClickKey KUp
ClickKey KDown
ClickKey KDown
CompareVisual scrollbar1
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KDown
ClickKey KDown
ClickKey KUp
ClickKey KUp
CompareVisual scrollbar2
# Press MB1 on the thumb of the left hand Scrollbar. Drag the thumb as
# far to the top as it will go. Release MB1. A VALUE_CHANGED callback
# will be displayed in the stdout window, the value should be equal to 90 the
# maximum
LocatePointer scrollbar1 RSlider
ClickMB Btn1
DragSliderValue Up Max Btn1
Continue
# Vertical Scrollbars:
# Change the scrollbar value with the keyboard and verify the following
# behavior (check ~/.motifbind for key bindings). Look at the behavior
# of the scrollbar, and the output in the stdout window:
#
# osfUp - left SB: XmCR_INCREMENT +1
# right SB: XmCR_DECREMENT -1
LocatePointer scrollbar1 RSlider
DragSliderValue Down Min Btn1
ClickKey KUp
ClickKey KUp
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KDown
ClickKey KDown
# osfDown - left SB: XmCR_DECREMENT -1
# right SB: XmCR_INCREMENT +1
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KDown
ClickKey KDown
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KUp
ClickKey KUp
# Ctrl osfUp - left SB: XmCR_PAGE_INCREMENT +10
# right SB: XmCR_PAGE_DECREMENT -10
LocatePointer scrollbar1
ClickMB Btn1
ClickKey <Ctrl> KUp
ClickKey <Ctrl> KUp
LocatePointer scrollbar2
ClickMB Btn1
ClickKey <Ctrl> KDown
ClickKey <Ctrl> KDown
# <Ctrl> osfDown - left SB: XmCR_PAGE_DECREMENT -10
# right SB: XmCR_PAGE_INCREMENT +10
LocatePointer scrollbar1
ClickMB Btn1
ClickKey <Ctrl> KDown
ClickKey <Ctrl> KDown
LocatePointer scrollbar2
ClickMB Btn1
ClickKey <Ctrl> KUp
ClickKey <Ctrl> KUp
CompareVisual scrollbar1
CompareVisual scrollbar2
# osfPageUp - left SB: XmCR_PAGE_INCREMENT +10
# right SB: XmCR_PAGE_DECREMENT -10
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KPageUp
ClickKey KPageUp
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KPageDown
ClickKey KPageDown
# osfPageDown - left SB: XmCR_PAGE_DECREMENT -10
# right SB: XmCR_PAGE_INCREMENT +10
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KPageDown
ClickKey KPageDown
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KPageUp
ClickKey KPageUp
# osfBeginLine - left SB: XmCR_TO_TOP =0
# right SB: XmCR_TO_TOP =0
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KBeginLine
ClickKey KBeginLine
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KBeginLine
ClickKey KBeginLine
# osfEndLine - left SB: XmCR_TO_BOTTOM =90
# right SB: XmCR_TO_BOTTOM =90
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KEndLine
ClickKey KEndLine
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KEndLine
ClickKey KEndLine
# Ctrl osfBeginLine - left SB: XmCR_TO_TOP =0
# right SB: XmCR_TO_TOP =0
LocatePointer scrollbar1
ClickMB Btn1
ClickKey <Ctrl> KBeginLine
ClickKey <Ctrl> KBeginLine
LocatePointer scrollbar2
ClickMB Btn1
ClickKey <Ctrl> KBeginLine
ClickKey <Ctrl> KBeginLine
# Ctrl osfEndLine - left SB: XmCR_TO_BOTTOM =90
# right SB: XmCR_TO_BOTTOM =90
LocatePointer scrollbar1
ClickMB Btn1
ClickKey <Ctrl> KEndLine
ClickKey <Ctrl> KEndLine
LocatePointer scrollbar2
ClickMB Btn1
ClickKey <Ctrl> KEndLine
ClickKey <Ctrl> KEndLine
CompareVisual scrollbar1
CompareVisual scrollbar2
Continue
# !) Horizontal Scrollbars:
# Change the scrollbar value with the keyboard and verify the following
# behavior (check ~/.motifbind for key bindings). Look at the behavior
# of the scrollbar, and the output in the stdout window:
# !)
# osfLeft - top SB: XmCR_DECREMENT -1
# bottom SB: XmCR_INCREMENT +1
CompareVisual scrollbar1
CompareVisual scrollbar2
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KLeft
ClickKey KLeft
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KRight
ClickKey KRight
# osfRight - top SB: XmCR_INCREMENT +1
# bottom SB: XmCR_DECREMENT -1
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KRight
ClickKey KRight
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KLeft
ClickKey KLeft
# Ctrl osfLeft - top SB: XmCR_PAGE_DECREMENT -10
# bottom SB: XmCR_PAGE_INCREMENT +10
LocatePointer scrollbar1
ClickMB Btn1
ClickKey <Ctrl> KLeft
ClickKey <Ctrl> KLeft
LocatePointer scrollbar2
ClickMB Btn1
ClickKey <Ctrl> KRight
ClickKey <Ctrl> KRight
# Ctrl osfRight - top SB: XmCR_PAGE_INCREMENT +10
# bottom SB: XmCR_PAGE_DECREMENT -10
LocatePointer scrollbar1
ClickMB Btn1
ClickKey <Ctrl> KRight
ClickKey <Ctrl> KRight
LocatePointer scrollbar2
ClickMB Btn1
ClickKey <Ctrl> KLeft
ClickKey <Ctrl> KLeft
CompareVisual scrollbar1
CompareVisual scrollbar2
# Ctrl osfPageUp - top SB: XmCR_PAGE_DECREMENT -10
# bottom SB: XmCR_PAGE_INCREMENT +10
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KPageLeft
ClickKey KPageLeft
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KPageRight
ClickKey KPageRight
# Ctrl osfPageDown - top SB: XmCR_PAGE_INCREMENT +10
# bottom SB: XmCR_PAGE_DECREMENT -10
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KPageRight
ClickKey KPageRight
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KPageLeft
ClickKey KPageLeft
# osfBeginLine - top SB: XmCR_TO_TOP =0
# bottom SB: XmCR_TO_TOP =0
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KBeginLine
ClickKey KBeginLine
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KBeginLine
ClickKey KBeginLine
# osfEndLine - top SB: XmCR_TO_BOTTOM =90
# bottom SB: XmCR_TO_BOTTOM =90
LocatePointer scrollbar1
ClickMB Btn1
ClickKey KEndLine
ClickKey KEndLine
LocatePointer scrollbar2
ClickMB Btn1
ClickKey KEndLine
ClickKey KEndLine
# Ctrl osfBeginLine - top SB: XmCR_TO_TOP =0
# bottom SB: XmCR_TO_TOP =0
LocatePointer scrollbar1
ClickMB Btn1
ClickKey <Ctrl> KBeginLine
ClickKey <Ctrl> KBeginLine
LocatePointer scrollbar2
ClickMB Btn1
ClickKey <Ctrl> KBeginLine
ClickKey <Ctrl> KBeginLine
# Ctrl osfEndLine - top SB: XmCR_TO_BOTTOM =90
# bottom SB: XmCR_TO_BOTTOM =90
LocatePointer scrollbar1
ClickMB Btn1
ClickKey <Ctrl> KEndLine
ClickKey <Ctrl> KEndLine
LocatePointer scrollbar2
ClickMB Btn1
ClickKey <Ctrl> KEndLine
ClickKey <Ctrl> KEndLine
CompareVisual scrollbar1
CompareVisual scrollbar2
Continue
# Scrollbar2 has been destroyed and recreated in a bulletin board which
# has been set insensitive.
# Scrollbar1 has been set insensitive.
# The 2 scrollbars should have the same appearance.
CompareVisual bb
Continue
Exit