# $XConsortium: Text8.scr /main/6 1995/07/17 20:42:20 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
# 

WindowRaise Text1
#  #) The parent is currently a Bulletin Board.
#     The focus is on the Default Button (lower right corner).  Press
#     Return.  You should see the message \"The Default Button
#     Activate callback was made\" in the stdout window.
LocatePointer BBoard1
System echo should see Default Activate
ClickKey KReturn

#  #) Move the focus to the Single Line text widget by pressing <Tab>.
#     Press Return.  You will see messages for both Activate and
#     Default Button Activate callbacks.  The Default Button will
#     appear to press in and out as well.
ClickKey KTab
System echo should see Activate
System echo should see Default Activate
ClickKey KReturn

#  #) The insertion cursor (I-beam) should be at position number 5.
CompareVisual Text1

#  #) Click MB1 somewhere in the Single Line text widget.
#     Use the left or right arrow keys to move the insertion cursor
#     to one side. There should be a destination (caret) cursor at the
#     original location and a flashing insertion (I-beam) cursor showing
#     the new cursor location.
LocatePointer Text1 RTextChar 8
ClickMB Btn1
ClickKey KRight
ClickKey KRight
ClickKey KRight
CompareVisual Text1

#  #) Move the insertion cursor
#     to the end of the text and start typing. Make sure that each
#     character is displayed as you type it.
ClickKey KEndLine
ClickKey Kn
CompareVisual Text1
ClickKey Ke
CompareVisual Text1
ClickKey Kw
CompareVisual Text1
InputString " text typed"
CompareVisual Text1

#  C)
Continue
WindowRaise Text1

#  #) Move the focus into the Multi Line text widget and press Return.
#     The MultiLine text widget should appear in the \"variable\" font.
#     There should be no Activate messages; instead, you get a new line
#     inserted at the cursor.
LocatePointer BBoard1
ClickKey KTab
ClickKey KReturn
CompareVisual Text2

#  #) Move the focus back and forth between the Multi Line and Single Line
#     text widgets several times by clicking MB1 in each.  Make sure no
#     extra caret cursors are left behind.
LocatePointer Text1
ClickMB Btn1
CompareVisual Text2
LocatePointer Text2
ClickMB Btn1
CompareVisual Text1
LocatePointer Text1
ClickMB Btn1
CompareVisual Text2
LocatePointer Text2
ClickMB Btn1
CompareVisual Text1
LocatePointer Text1
ClickMB Btn1
LocatePointer Text2
ClickMB Btn1
CompareVisual Text1

#  #) With focus in Multi Line Text, press Ctrl <Tab>.  The focus moves to
#     the Scrollbar.  Press Return.  You get the Default Button Activate
#     message in the stdout window.
ClickKey <Ctrl> KTab
System echo should see Default Activate
ClickKey KReturn

#  C)
Continue
WindowRaise Text1

#  #) Press <Tab> again and focus moves to the TextField Widget.
#     Press Return.  You should get both Activate and Default Activate
#     messages.
LocatePointer BBoard1
ClickKey KTab
System echo should see Activate
System echo should see Default Activate
LocatePointer TextF RTextChar 1
ClickKey KReturn

#  #) Move the insertion cursor
#     to the end of the TextField widget and start typing. Be sure
#     that each character is displayed as you type it.
ClickKey KEndLine
ClickKey Kn
CompareVisual TextF
ClickKey Ke
CompareVisual TextF
ClickKey Kw
CompareVisual TextF
InputString " text typed"
CompareVisual TextF


#  #ifdef	MOTIF1_1
#  #) Press <Tab>.  Focus moves to the Toggle Button.  Press Return.
#     You should get the Default Button Activate message, and the
#     Default Button should appear to press in and out.
#  #endif	MOTIF1_1
#  #ifdef	MOTIF1_2
#  #) Press <Tab>.  Focus moves to the Default Button.  Use the
#     down-arrow key to move the focus to the Toggle Button.  Press Return.
#     You should get the Default Button Activate message, and the
#     Default Button should appear to press in and out.
#  #endif	MOTIF1_2

ClickKey KTab
ClickKey KDown
System echo should see Default Activate
ClickKey KReturn

#  #) Press space.  You should get the Value Changed message, and the Toggle
#     Button indicator fills.
System echo should see Value Changed
ClickKey KSpace

#  #) Use the down-arrow key to move the focus to the Other Button.
#     Give the focus to a different window.  Move the focus back to the
#     Text8 window.  The focus and the Default Button shadow should still
#     be on the Other Button.
ClickKey KDown
LocatePointer InstructionBox ROkButton
CompareVisual OtherB
LocatePointer OtherB
CompareVisual OtherB

#  #) Press Return with focus on Other Button.  You should get the Activate
#     message.
System echo should see Activate
ClickKey KReturn

#  C)
Continue
WindowRaise Text1

#  #) Move focus to the Single Line text widget and press the Help key.
#     A dialog box pops up saying that box is help for Text.
LocatePointer BBoard1
ClickKey KTab
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1

#  #) Move focus to the Default Button and press the Help key.
#     It has a customized help dialog as well.
ClickKey <Shift> KTab
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1

#  #) Move focus to the Other Button and bring up its customized help dialog.
ClickKey KUp
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1

#  #) Move focus to all the other widgets. For every other widget, the help dialog
#     will start "This is generic help for the application..."
#  Make sure you can get some help dialog with the focus in any widget.
## move to Toggle Button
ClickKey KUp
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1
## tab to Text2 (multiline)
ClickKey KTab
ClickKey KTab
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1
## ctrl tab to ScrollB
ClickKey <Ctrl> KTab
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1
## tab to TextF
ClickKey KTab
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1

#  C)
Continue
WindowRaise Text1

#  #) Enter the Multi Line text widget and press Return.  Instead of moving
#     to the next line, the message \"The return key has been remapped to
#     this routine\" appears in the stdout window.
LocatePointer BBoard1
ClickKey <Shift> KTab
ClickKey <Shift> KTab
System echo should see return key remapped
ClickKey KReturn

#  #) Double click MB1 on the Multi Line Text widget.
#     You'll see a message, "The user has double-clicked."
LocatePointer Text2
System echo should see user double-clicked
ClickMB Btn1 2

#  C)
Continue
WindowRaise Text1

#  #) Click on Other Button.  It will become insensitive.
LocatePointer OtherB
ClickMB Btn1
CompareVisual OtherB

#  #) Click on Default Button.  It will also become insensitive.
LocatePointer DefaultB
ClickMB Btn1
CompareVisual DefaultB

#  C)
Continue
WindowRaise Text1

#  #) The parent is currently a Bulletin Board Dialog.
#  The MultiLine text widget should appear in the \"variable\" font.
#  All the widgets in this client should behave the way they did
#  on the first panel.  Move focus around and press Return in each
#  widget, and review the callback messages.
LocatePointer BBoard1
##  start in default button
System echo should see Default Activate
ClickKey KReturn
##  traverse to single line text
ClickKey KTab
System echo should see Activate
System echo should see Default Activate
ClickKey KReturn
##  traverse to multi line text
ClickKey KTab
# no callbacks here
ClickKey KReturn
##  traverse to scrollbar
ClickKey <Ctrl> KTab
System echo should see Default Activate
ClickKey KReturn
##  traverse to textfield
ClickKey KTab
System echo should see Activate
System echo should see Default Activate
ClickKey KReturn
## traverse to toggle button
ClickKey KTab
ClickKey KDown
System echo should see Default Activate
ClickKey KReturn
## traverse to other button
ClickKey KDown
System echo should see Activate
ClickKey KReturn

#  C)
Continue
WindowRaise Text1

#  #) Move focus to each button and press the help key.
#     The Single Line text widget,
#     Default Button, and Other Button should give customized help messages.
#     All other widgets give the \"generic\" help message.
LocatePointer BBoard1
## traverse to single line text
ClickKey KTab
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1
## traverse to default button
ClickKey <Shift> KTab
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1
## traverse to other button
ClickKey KUp
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1
## traverse to Toggle Button
ClickKey KUp
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1
## traverse to multi line text
ClickKey KTab
ClickKey KTab
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1
## traverse to scrollbar
ClickKey <Ctrl> KTab
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1
## traverse to textfield
ClickKey KTab
ClickKey KHelp
CompareVisual help_dialog
LocatePointer help_dialog ROkButton
ClickMB Btn1

#  C)
Continue
WindowRaise Text1

#  #) In the Multi Line text widget, the Return key has again been remapped.
#  Press Return in the Multi Line text widget and the message \"The
#  Return key has been remapped to this routine\" will appear in the
#  stdout window.
LocatePointer Text2 RTextChar 5
ClickMB Btn1
ClickKey KReturn

#  #) Double-click MB1 has also been remapped to produce a message.
ClickMB Btn1 2

#  C)
Continue
WindowRaise Text1

#  #) Other Button and Default Button will become insensitive when activated.
#  Click on each of them to verify this.
LocatePointer OtherB
ClickMB Btn1
CompareVisual OtherB
LocatePointer DefaultB
ClickMB Btn1
CompareVisual DefaultB

#  C)
Continue
WindowRaise Text1

#  #) The parent is currently a Form.  Navigate to each widget and press Return.
#  All the widgets should behave as they have in the past panels.
#  The MultiLine text widget should appear in the \"variable\" font.
LocatePointer Form1
##  start in default button
System echo should see Default Activate
ClickKey KReturn
##  traverse to single line text
ClickKey KTab
System echo should see Activate
System echo should see Default Activate
ClickKey KReturn
##  traverse to multi line text
ClickKey KTab
# no callbacks here
ClickKey KReturn
##  traverse to scrollbar
ClickKey <Ctrl> KTab
System echo should see Default Activate
ClickKey KReturn
##  traverse to textfield
ClickKey KTab
System echo should see Activate
System echo should see Default Activate
ClickKey KReturn
## traverse to toggle button
ClickKey KTab
ClickKey KDown
System echo should see Default Activate
ClickKey KReturn
## traverse to other button
ClickKey KDown
System echo should see Activate
ClickKey KReturn

#  E)
Exit