# $XConsortium: Form1b.scr /main/4 1995/07/17 20:18:54 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
#) Attach the RIGHT side of Child1 (the blue one) to Position 7.

LocatePointer sides3
ClickMB Btn1

LocatePointer attaches5
ClickMB Btn1

LocatePointer positionScale RScaleSlider
DragSliderValue Right 7

LocatePointer button1
ClickMB Btn1

CompareVisual form


#) Attach the LEFT side of Child1 (Blue) to NONE.

LocatePointer sides2
ClickMB Btn1

LocatePointer attaches0
ClickMB Btn1

LocatePointer button1
ClickMB Btn1

CompareVisual form

#) Attach the RIGHT side of Child2 (Yellow) to WIDGET.

LocatePointer sides3
ClickMB Btn1

LocatePointer attaches3
ClickMB Btn1

LocatePointer button2
ClickMB Btn1

CompareVisual form

#) Type 200 into the Width field in the panel for setting child resources,
#) and set the toggle so that Child2 gets the change.

LocatePointer target1
ClickMB Btn1

LocatePointer widthText
ClickMB Btn1

InputString "200"
ClickKey KReturn
CompareVisual form


#) Apply twice by hitting the return key twice. You should see the resize
#) on the first apply and no change on the second apply.


ClickKey KReturn
CompareVisual form

ClickKey KReturn
CompareVisual form
Exit