# $XConsortium: ScrollWin5.scr /main/5 1995/07/17 20:45:52 drk $
#
# 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
#
# A client containing a ScrolledWindow will appear. The ScrolledWindow
# will contain a Form which will contain three Arrow Buttons. The Arrow
# Buttons will be colored coral, violet, and yellow. The background
# color of the ScrolledWindow will be AquaMarine which will apply to the
# Scrollbars.
# The width and height of the ScrolledWindow will be 200x200.
# The coral Arrow Button will be attached to the Form on the top and the
# left and will have a height of 200.
# The violet Arrow Button will be
# attached to the Form on the top, and on the left to the coral Arrow
# Button with an offset of 10. Its width will be 200.
# The yellow Arrow Button will attached to the Form on the right and
# on the bottom. It will
# be attached on the left to the coral Arrow Button, and on the top to the
# violet Arrow Button both with offsets of 10. Its width and height will be
# 150.
CompareVisual ScrolledWindow1
Continue
# The top and bottom offsets on the yellow Arrow Button should increase
# from 10 to 25. This should cause the slider in vertical scrollbar to shrink.
CompareVisual ScrolledWindow1
# Use the horizontal and vertical Scrollbars to \"look at\" all the contents
# of the Scrolled Window.
LocatePointer ScrolledWindow1 RVertScrollBarSlider
DragSliderValue Down Max
DragSliderValue Up Min
LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragSliderValue Right Max
DragSliderValue Left Min
CompareVisual ScrolledWindow1
Continue
# The yellow Arrow Button should now become Unmanaged. This will cause
# the Arrow Button to disappear. The Bottom of the ScrolledWindow should now
# be clipped at the end of the coral Arrow Button.
CompareVisual ScrolledWindow1
# Use the horizontal and vertical Scrollbars to \"look at\" all the contents
# of the Scrolled Window.
LocatePointer ScrolledWindow1 RVertScrollBarSlider
DragSliderValue Down Max
DragSliderValue Up Min
LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragSliderValue Right Max
DragSliderValue Left Min
CompareVisual ScrolledWindow1
# Press Shift <Tab> until the highlight is in the work area with the Arrow
# Buttons.
ClickKey <Shift> KTab
# Use the Down Arrow Key to move the highlight between the visible widgets.
# You should only be able to move the highlight between the VISIBLE Buttons.
ClickKey KDown
ClickKey KDown
ClickKey KDown
Continue
# A new Arrow Button should appear. Its color will be white, and it will
# be attached to the Form on the bottom, the right, and the left. It also will
# be attached to the Unmanaged yellow Arrow Button on the top. All attachments
# should be inforced from the Unmanaged yellow Arrow Button.
CompareVisual ScrolledWindow1
# Use the horizontal and vertical Scrollbars to \"look at\" all the contents
# of the Scrolled Window.
LocatePointer ScrolledWindow1 RVertScrollBarSlider
DragSliderValue Down Max
DragSliderValue Up Min
LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragSliderValue Right Max
DragSliderValue Left Min
CompareVisual ScrolledWindow1
Continue
# The yellow Arrow Button should again become Managed. This will make the
# Arrow Button visible. All previous attachments should be honored. The arrow
# direction of the yellow Arrow Button should have changed to XmARROW_LEFT.
# Use the horizontal and vertical Scrollbars to \"look at\" all the contents
# of the Scrolled Window.
LocatePointer ScrolledWindow1 RVertScrollBarSlider
DragSliderValue Down Max
DragSliderValue Up Min
LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragSliderValue Right Max
DragSliderValue Left Min
CompareVisual ScrolledWindow1
Continue
# The width and height of the ScrolledWindow should grow from 200x200
# to 300x300. This will make all the Arrow Buttons visible. No Scrollbars
# should be present.
CompareVisual ScrolledWindow1
Continue
# The width and height of the Form should increase to 400x400. This will
# cause the vertical and horizontal scrollbars to appear again. All widgets
# should keep there same relative positions as before.
CompareVisual Form
# Use the horizontal and vertical Scrollbars to \"look at\" all the contents
# of the Scrolled Window.
LocatePointer ScrolledWindow1 RVertScrollBarSlider
DragSliderValue Down Max
DragSliderValue Up Min
LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragSliderValue Right Max
DragSliderValue Left Min
CompareVisual ScrolledWindow1
Continue
# There should be no change to the client. An attempt to change the X and
# Y positions of the Form should have failed.
CompareVisual ScrolledWindow1
Continue
# The width and height of the ScrolledWindow should change to 100x100.
# This should cause the client to shrink and only partial amounts of the Arrow
# Buttons should be visible. All widgets should keep there realtive positions
# within the form.
CompareVisual ScrolledWindow1
# Use the horizontal and vertical Scrollbars to \"look at\" all the contents
# of the Scrolled Window.
LocatePointer ScrolledWindow1 RVertScrollBarSlider
DragSliderValue Down Max
DragSliderValue Up Min
LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragSliderValue Right Max
DragSliderValue Left Min
CompareVisual ScrolledWindow1
Exit