# $XConsortium: Command1a.scr /main/4 1995/07/17 20:37:17 drk $
# @OPENGROUP_COPYRIGHT@
# COPYRIGHT NOTICE
# Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc.
# Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group
# ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
# the full copyright text.
# 
# This software is subject to an open license. It may only be
# used on, with or for operating systems which are themselves open
# source systems. You must contact The Open Group for a license
# allowing distribution and sublicensing of this software on, with,
# or for operating systems which are not Open Source programs.
# 
# See http://www.opengroup.org/openmotif/license for full
# details of the license agreement. Any use, reproduction, or
# distribution of the program constitutes recipient's acceptance of
# this agreement.
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
# PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY
# WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
# OR FITNESS FOR A PARTICULAR PURPOSE
# 
# EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
# NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT,
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
# AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
# ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
# EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGES.
# 
# HISTORY

# #) A client Window should appear with a command history list and
#    layout direction set as right-to-left.
#    The command history list should have nine visible items aligned
#    to the right, a scrollbar displayed vertically on the left,
#    a command prompt aligned to the right and a current command of ls -l.
#    A command message string will appear in the history area,
#    it will be called <erroror>.
WindowFocus Shell1
LocatePointer Command1
ClickKey KTab

CompareVisual Command1

#) The following information should be printed in the term window:
#!)
#      Prompt Label Child Name - Selection
#      Command Text Child Name - Text
#      History List Child Name - ItemsList

# C)

Continue

# #) Double click MB1 on command <erroror> in history list.
#    The list should change and ls -l in the command line
#    text input field should disappear. <erroror> Error condition
#    should disappear and list should fill downwards.
LocatePointer Command1 RSelectionListItem 9
ClickMB Btn1 2

#) Move to top of history list using the slider and
#   Click MB1 on <func00>. <func00> should appear in
#   the command  line text input field
LocatePointer Command1 RSelectListVertScrollBarSlider
DragSliderValue Up Min
LocatePointer Command1 RSelectionListItem 3
ClickMB Btn1

CompareVisual Command1

#) Move pointer into the List area. Press the return key.
#   Three things should happen:
#!)
#      a) <func00> should get added to end of the
#         history list.
#      b) The scrollbar should show that we are at
#         the end of the list.
#      c) <func00> disappears from the command line.

LocatePointer Command1 RSelectionTextChar 4
ClickMB Btn1
ClickKey KReturn

CompareVisual Command1

# C)

Continue

#) Enter a command into the command text input field and press return.
#   The command that you type should be added to the command list.
LocatePointer Command1 RSelectionText
ClickMB Btn1
InputString "Automation"
ClickKey KReturn

CompareVisual Command1

#) Enter several characters into the command input text field.
InputString "Auto"
CompareVisual Command1

#) Select a command from the history list. The item should appear in
#   the command text input field. The previous characters should
#   disappear.

LocatePointer Command1 RSelectionListItem 0
ClickMB Btn1
CompareVisual Command1

# E)

Exit