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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
# $XConsortium: DrawArea2.scr /main/7 1995/07/17 20:24:35 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
#
# This is a simple Drawing Area client.
# The focus is on the button. Press TAB to put the focus into the drawing
# area. Press any key on the keyboard. You should see a message about a
# keypress being received but not processed. This is normal and desireable.
# The Drawing area is surrounded by a frame and
# itself should have a shadow thickness of 5 pixels.
LocatePointer BulletinBoard
ClickKey KTab
ClickKey Kb
CompareVisual BulletinBoard
# To use the client: Click MB1 anywhere in the client. A line will be drawn
# from 0,0 to your current location. Each time you click MB1, a line will
# be drawn from your previous location to your current location. If you
# click MB2 or MB3, no line will be drawn, but the beginning point will be
# reset to your current location.
LocatePointer DrawingArea1
ClickMB Btn1
DragXYRelative Left 50
ClickMB Btn1
DragXYRelative Any 20 20
ClickMB Btn1
DragXYRelative Any -30 25
ClickMB Btn1
DragXYRelative Any -40 -40
ClickMB Btn1
LocatePointerXYAbs 200 200
ClickMB Btn2
LocatePointerXYAbs 250 200
ClickMB Btn1
LocatePointerXYAbs 250 300
ClickMB Btn1
CompareVisual DrawingArea1
# Click Btn1 one more time anywhere in the Drawing Area. Now press the Shift
# key and verify that the "keypress received" message appears in the stdout
# window.
# Test for P2950, Shift alone gets lost after Btn1 click
ClickKey <Shift> Kz
ClickKey <Shift> KNone
ClickKey Ka
ClickKey Kb
ClickKey Kc
ClickKey Kd
#after a Btn1 click, KNone doesn't get an input callback.
LocatePointerXYAbs 250 300
ClickMB Btn1
ClickKey <Shift> KNone
ClickKey Ka
ClickKey Kb
ClickKey Kc
ClickKey Kd
# test for PIR 3898
ClickKey KCancel
ClickKey KActivate
LocatePointer DrawingArea1
ClickMB Btn1
LocatePointerXYAbs 200 200
ClickMB Btn1
# Click PushButton to resize, verify messages.
# Instead, Shift-Tab focus back there to show PIR
ClickKey <Shift> KTab
ClickKey KSpace
Continue
# The way button and key presses has been modified internally to use
# translations. Things should work the same way in the Drawing Area.
LocatePointer BulletinBoard
ClickKey KTab
ClickKey Kb
CompareVisual BulletinBoard
LocatePointer DrawingArea1
ClickMB Btn1
DragXYRelative Right 50
ClickMB Btn1
DragXYRelative Any -10 -10
ClickMB Btn1
DragXYRelative Any 20 20
ClickMB Btn1
DragXYRelative Any -30 25
ClickMB Btn1
CompareVisual DrawingArea1
Continue
# A popup shell has popped up, containing a label "Put the focus in
# this window." Move your pointer into the popup shell window.
LocatePointer DrawingArea2
CompareVisual DrawingArea2
Exit
|
