1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
# $XConsortium: ScrollWin2.scr /main/5 1995/07/17 20:45:34 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 with a scrolled window should appear. Ten and
# a half pushbutton gadgets and pushbuttons should be visible.
# A vertical scrollbar should appear at the left side of the client.
CompareVisual ScrolledWindow1
Continue
# Move the client to the top of the screen. Resize
# the bottom of the client window down to the bottom of the screen.
# Most or all of the following should be visible:
#
# six PushButtonGadgets (black foregrounds)
# eight PushButtons (green foregrounds)
# five ArrowButtonGadgets (red foregrounds)
# five ArrowButtons (black foregrounds)
# If all are visible, the scrollbars should disappear.
WindowMove Shell1 0 0
WindowResize Shell1 South 800
CompareVisual ScrolledWindow1
Continue
# Resize the right edge of the client window to the left so that
# the widgets and gadgets are only partially visible. The
# horizontal scrollbar should appear at the top of the client.
WindowResize Shell1 East 100
CompareVisual ScrolledWindow1
# Press and hold MB1 on the horizontal slider. Drag the slider to
# the far right. The pushbutton gadget numbers should be visible.
LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragSliderValue Right Max
CompareVisual ScrolledWindow1
Continue
# Resize the bottom of the client up so that some widgets and
# gadgets are clipped. The vertical scrollbar should reappear
# at on the left of the client.
WindowResize ScrolledWindow1 South 400
CompareVisual ScrolledWindow1
# Press and hold MB1 on the vertical slider. Drag the slider
# to the bottom. Release MB1.
LocatePointer ScrolledWindow1 RVertScrollBarSlider
DragSliderValue Down Max
# Press and hold MB1 on the horizontal slider. Drag the slider
# to the middle. Release MB1. Depending on how small you resized the window,
# some number of the green and red arrow buttons should be visible.
LocatePointer ScrolledWindow1 RHorizScrollBarSlider
DragSliderValue Left 50
# Iconify the client. Normalize the client.
WindowIconify Shell1
WindowDeiconify Shell1
Exit
|
