Blob Blame History Raw
# $XConsortium: Baseline1.scr /main/6 1995/07/17 20:24:08 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
# 

#) A client which contains a Frame with a label as the title child
#)   should appear. The full labelString \"Alignment String\" should
#)   be visible.

CompareVisual Frame1
Continue

#) A new label with the labelString \"Incorrect Label\" should 
#)   appear. This is an invalid child and should not be use as the 
#)   Frame's title. You should also see a warning message in the term
#)   window stating that \"Title child already exists\".

CompareVisual Frame1
Continue

#) A ScrolledText widget with text should appear. The shadowThickness
#)   on the Frame should be 10, and the title labelString should be
#)   \"Alignment String\". It should centered both within the window
#)   and within the Frame.

CompareVisual ScrolledText1
Continue

#) The marginWidth and marginHeight of the Frame should now change to
#)   be 20.

CompareVisual Frame1
Continue

#) A BulletinBoard dialog with three RadioBoxs and a Scale for 
#   shadowThickness should appear. 
#) Type a multiple line string into the Text widget in the control panel, 
#   and click the \"Apply String\" button.
#) Use the first RadioBox to change the Label's childVerticalAlignment.

LocatePointer Text
ClickMB Btn1
InputString "Here today\nGone tomorrow"
LocatePointer ApplyBtn
ClickMB Btn1

LocatePointer Toggle3
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1
ClickMB Btn1
LocatePointer Toggle5
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle4
ClickMB Btn1
CompareVisual Frame1

#) Use the second RadioBox to change the Frames's shadowType.

LocatePointer Toggle4a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle3a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1a
ClickMB Btn1
CompareVisual Frame1

#) Use the the third RadioBox to change the Label's 
#   childHorizontalAlignment.

LocatePointer Toggle3b
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2b
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1b
ClickMB Btn1
CompareVisual Frame1

#) Use the Scale to change the Frame's shadowThickness.

LocatePointer	Scale1	RScaleSlider
DragSliderValue Right	Max
WindowRaise Shell1
CompareVisual Frame1
DragSliderValue Left 10
CompareVisual Frame1
LocatePointer	Scale1	RScaleDownOrRightSliderArea
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleDownOrRightSliderArea
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleSlider
DragSliderValue Left	Min
DragSliderValue Right 6
CompareVisual Frame1

Continue

#) The Font of the Label should change to be 9x15bold.
#) Use the control panel to change all of the resources.

LocatePointer Toggle3
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1
ClickMB Btn1
LocatePointer Toggle5
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle4
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle4a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle3a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle3b
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2b
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1b
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleSlider
DragSliderValue Right	Max
WindowRaise Shell1
CompareVisual Frame1
DragSliderValue Left 11
CompareVisual Frame1
LocatePointer	Scale1	RScaleDownOrRightSliderArea
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleDownOrRightSliderArea
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleSlider
DragSliderValue Left	Min
DragSliderValue Right 12
CompareVisual Frame1
Continue

#) The labelString of the Frame title should change to
#   \"Motif\\n Scrolled Text Widget\" it should appear on two lines.
#  It should be centered within the Frame.
#) Use the control panel to change all of the resources.

LocatePointer Toggle3
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1
ClickMB Btn1
LocatePointer Toggle5
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle4
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle4a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle3a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle3b
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2b
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1b
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleSlider
DragSliderValue Right	Max
WindowRaise Shell1
CompareVisual Frame1
DragSliderValue Left 9
CompareVisual Frame1
LocatePointer	Scale1	RScaleDownOrRightSliderArea
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleDownOrRightSliderArea
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleSlider
DragSliderValue Left	Min
DragSliderValue Right 9
CompareVisual Frame1

Continue

#) The Label's childType resources should change to FRAME_GENERIC_CHILD.
#   This will make the cause the Label not to be a title for the Frame.
#) Use the control panel to change all of the resources. This should
#   have no effect (except shadowThickness and shadowType).

LocatePointer Toggle3
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1
ClickMB Btn1
LocatePointer Toggle5
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle4
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle4a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle3a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1a
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle3b
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle2b
ClickMB Btn1
CompareVisual Frame1
LocatePointer Toggle1b
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleSlider
DragSliderValue Right	Max
WindowRaise Shell1
CompareVisual Frame1
DragSliderValue Left 13
CompareVisual Frame1
LocatePointer	Scale1	RScaleDownOrRightSliderArea
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleDownOrRightSliderArea
ClickMB Btn1
CompareVisual Frame1
LocatePointer	Scale1	RScaleSlider
DragSliderValue Left	Min
DragSliderValue Right   21
CompareVisual Frame1

Continue

#) The Label will be destroyed, and a text widget with the string
#   \"You can even use a Text Widget\" will now be created with its
#   childType being FRAME_TITLE_CHILD. The Text widget will be aligned
#   at the end of the Frame.
#) Use the control panel to change all of the resources, which are now
#   applicable to the Text widget and the Frame.

LocatePointer Toggle3
ClickMB Btn1
CompareVisual Text1
LocatePointer Toggle2
ClickMB Btn1
CompareVisual Text1
LocatePointer Toggle1
ClickMB Btn1
LocatePointer Toggle5
ClickMB Btn1
CompareVisual Text1
LocatePointer Toggle4
ClickMB Btn1
CompareVisual Text1
LocatePointer Toggle4a
ClickMB Btn1
CompareVisual Text1
LocatePointer Toggle3a
ClickMB Btn1
CompareVisual Text1
LocatePointer Toggle2a
ClickMB Btn1
CompareVisual Text1
LocatePointer Toggle1a
ClickMB Btn1
CompareVisual Text1
LocatePointer Toggle3b
ClickMB Btn1
CompareVisual Text1
LocatePointer Toggle2b
ClickMB Btn1
CompareVisual Text1
LocatePointer Toggle1b
ClickMB Btn1
CompareVisual Text1
LocatePointer	Scale1	RScaleSlider
DragSliderValue Right	Max
WindowRaise Shell1
CompareVisual Text1
DragSliderValue Left 11
CompareVisual Text1
LocatePointer	Scale1	RScaleDownOrRightSliderArea
ClickMB Btn1
CompareVisual Text1
LocatePointer	Scale1	RScaleDownOrRightSliderArea
ClickMB Btn1
CompareVisual Text1
LocatePointer	Scale1	RScaleSlider
DragSliderValue Left	Min
DragSliderValue Right   2
CompareVisual Text1

Exit