# $XConsortium: Command1a.scr /main/4 1995/07/17 20:37:17 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 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