# $XConsortium: DrawArea2.scr /main/7 1995/07/17 20:24:35 drk $
# 
# @OPENGROUP_COPYRIGHT@
# COPYRIGHT NOTICE
# Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc.
# Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group
# ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
# the full copyright text.
# 
# This software is subject to an open license. It may only be
# used on, with or for operating systems which are themselves open
# source systems. You must contact The Open Group for a license
# allowing distribution and sublicensing of this software on, with,
# or for operating systems which are not Open Source programs.
# 
# See http://www.opengroup.org/openmotif/license for full
# details of the license agreement. Any use, reproduction, or
# distribution of the program constitutes recipient's acceptance of
# this agreement.
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
# PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY
# WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
# OR FITNESS FOR A PARTICULAR PURPOSE
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
# NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT,
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
# AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
# ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
# EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGES.
# 
# 
# 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