# $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