# $XConsortium: RIScale2.scr /main/4 1995/07/17 20:36:00 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
# 
# Original History:
#
# Revision 1.1.4.2  1993/02/17  18:39:50  yak
# 	Fixed  comment leader
# 	[1993/02/17  18:37:13  yak]
#
# Revision 1.1.2.2  1992/07/30  20:18:16  scholz
# 	 	Added CompareVisuals.
# 	 	[1992/07/30  14:15:26  scholz]
# 
# 	 	Initial version.
# 	 	[1992/07/27  19:54:27  scholz]
# 

#  @) A client with a scale should appear. There should be
#     some X Toolkit Warnings in the stdout window.
#  #) Press and hold MB1 on scale slider. Drag slider up and down the
#     scale. The number to the left of the scale should
#     change from 0 at the bottom to 100 at the top.
#     Release MB1. 
LocatePointer Scale1 RScaleSlider
DragSliderValue Up Max
CompareVisual Scale1
DragSliderValue Down Min
CompareVisual Scale1
DragSliderValue Up 65
CompareVisual Scale1

#  #) Enlarge client window to the right. 
WindowResize Shell1 SouthEast 100 200
CompareVisual Shell1

#  C)
Continue

#  #) A message to the stdout window should state that
#  XmNtitleString = Noise Level 
CompareVisual Scale1

#  C)
Continue

#  @) There should be more X Toolkit Warnings in the stdout window.
#  #) Press and hold MB1 on scale slider. Drag slider up
#     and down the scale. Number on the left of the scale
#     should change from 0 at top to 100 at bottom.
#     Release MB1 and resize the client window. 
LocatePointer Scale1 RScaleSlider
DragSliderValue Down Max
CompareVisual Scale1
DragSliderValue Up Min
CompareVisual Scale1
DragSliderValue Down 65
CompareVisual Scale1
WindowResize Shell1 SouthEast 150 300
CompareVisual Shell1

#  C)
Continue

#  @) The scale should no longer be visible.
CompareVisual Shell1

#  E)
Exit