# $XConsortium: DiaShell1.scr /main/5 1995/07/17 20:38:29 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
# 

# Test PIR4340

LocatePointer SystemDia1
CompareVisual SystemDia1
LocatePointer  SystemDia1  ROkButton
ClickMB  Btn1
# This is just to check if SystemDia1 has been unmanaged
LocatePointer SystemDia1
# End test PIR4340

Continue

Continue

WindowMove  MessageBox1  300 300
WindowMove  MessageBox2  10 350
WindowMove  MessageBox3  10 200
CompareVisual  MessageBox1
CompareVisual  MessageBox2
CompareVisual  MessageBox3

WindowIconify  Shell1
WindowDeiconify  Shell1

Continue

LocatePointer  MessageBox1  ROkButton
ClickMB  Btn1
LocatePointer  MessageBox2  ROkButton
ClickMB  Btn1
LocatePointer  MessageBox3  ROkButton
ClickMB  Btn1

#
# The following three locates are to test that the MessageBoxes have
# really disappeared from the display. If they have disappeared, each
# of the three locates below should generate a warning in the output
# file.
#
LocatePointer  MessageBox1  ROkButton
LocatePointer  MessageBox2  ROkButton
LocatePointer  MessageBox3  ROkButton

Continue

CompareVisual  Dialog1
CompareVisual  BulletinBoard
CompareVisual  fontLabel1
CompareVisual  fontLabel2
CompareVisual  fontLabel3

Continue

#
# There should be a control panel with pushbuttons "Create FormDialog1",
# "Manage FormDialog1", "Unmanage FormDialog1".
#

CompareVisual  Shell1
CompareVisual  BB1

Continue

LocatePointer  CreateForm
ClickMB	 Btn1
LocatePointer  ManageForm
ClickMB	 Btn1

CompareVisual  FormDialog1
WindowMove  FormDialog1  200 200
LocatePointer  Post_FormDialog2
ClickMB  Btn1
CompareVisual  FormDialog2

Continue

LocatePointer  UnmanageForm
ClickMB  Btn1

#
# The following two locates are just to test that both the formdialogs
# have disappeared from the display. Each of these ahould produce a
# warning in the output file.
#

LocatePointer  FormDialog1
LocatePointer  FormDialog2

LocatePointer  ManageForm
ClickMB	 Btn1

#
# The following two locates are just to test that both the formdialogs
# have reappeared from the display. If either of them has not reappeared,
# there should be a corresponding warning in the output file.
#

LocatePointer  FormDialog1
CompareVisual  FormDialog1
LocatePointer  FormDialog2

#
# The following two commands should generate a warning in the output file
# saying "FormDialog2 already managed".
#
LocatePointer  Post_FormDialog2
ClickMB  Btn1

Continue

Exit