#
# 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
#
/*
static char rcsid[] = "$XConsortium: InfoDia1.scr /main/6 1995/07/13 18:58:27 drk $"
*/
# A client with an information dialog should appear. The
# dialog will have three buttons labeled 'Minimize',
# 'W=500', and 'H=300'. The 'W=500' button should have highlight.
CompareVisual mbox
# Move the pointer into the dialog, you should get a focusCallback
# message in the term window.
LocatePointer mbox
# Move outside the window again and now move back into the dialog very
# quickly. You should NOT get multiple focusCallbacks, you should only
# get one.
LocatePointerXYAbs 200 200
LocatePointer mbox
LocatePointerXYAbs 200 200
LocatePointer mbox
# Try the previous two steps, except run mwm in explicit mode. When you
# initially move into the dialog you should NOT get a focusCallback
# (the window should not have window manager focus).
# Click MB1 on the 'H=300' button. The dialog should grow
# to a height of 300 pixels.
LocatePointer mbox RHelpButton
ClickMB Btn1
CompareVisual mbox
# Click MB1 on the 'W=500' button. The dialog should grow
# to a width of 500 pixels.
LocatePointer mbox RCancelButton
ClickMB Btn1
WindowRaise Shell1
CompareVisual mbox
# Click MB1 on the 'Minimize' button. Buttons should minimize
# and dialog should shrink to minimal dimensions.
LocatePointer mbox ROkButton
ClickMB Btn1
CompareVisual mbox
# C)
Continue
# Click MB1 on the 'H=300' button. The dialog should grow
# to a height of 300 pixels.
LocatePointer mbox RHelpButton
ClickMB Btn1
CompareVisual mbox
# Click MB1 on the 'W=500' button. The dialog should grow
# to a width of 500 pixels.
LocatePointer mbox RCancelButton
ClickMB Btn1
WindowRaise Shell1
CompareVisual mbox
# Click on the To Default button.
LocatePointer mbox ROkButton
ClickMB Btn1
CompareVisual mbox
# C)
Continue
# A dialog has been created with mappedWhenManaged: False, and managed. This
# dialog should not actually be visible.
# Its geometry is 300x300 pixels, location x=0, y=50.
# should produce warning (we want this to happen).
LocatePointer mbox
# C)
Continue
# The dialog shell should be mapped.
# Its geometry is 300x300 pixels, location x=200, y=200.
LocatePointer mbox
CompareVisual mbox
# C)
Continue
# The geometry was changed to 300 by 400 pixels at x=0, y=200.
LocatePointer mbox
CompareVisual mbox
# C)
Continue
# Another unmapped message dialog was created.
# should produce warning (we want this to happen).
LocatePointer mbox
# C)
Continue
# An unmapped message box was created.
# should produce warning (we want this to happen).
LocatePointer mbox
# E)
Exit