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

# @)  The following test panel allows you to specify upto five tab settings
# within the given string of text and then display the text with tabs inserted. 

# #) Click BSelect at a position within the text widget where you would like
# to insert a tab. Set values for the tab value, tab units and 
# tab offset. Select the pushbutton labelled \"Set Tab\" to actually 
# create the tab. A popup menu will appear displaying the current
# tab values.   
LocatePointer Text1 RTextChar 4
ClickMB Btn1

# Set tab value to 2.0
LocatePointer Scale1 RScaleSlider
DragSliderValue Right 2

# Set unit type to Centimeters
LocatePointer UnitMenu ROptionButton
PressMB Btn1
LocatePointer UnitPushB6
ReleaseMB Btn1

# Set tab offset to Absolute
LocatePointer OffsetMenu ROptionButton
PressMB Btn1
LocatePointer OffsetPushB0
ReleaseMB Btn1

LocatePointer CreateTabPB
ClickMB Btn1

# #) Repeat the above steps to insert more tabs into the text
# string if desired.
LocatePointer Text1 RTextChar 8
ClickMB Btn1

# Set tab value to 1.0
LocatePointer Scale1 RScaleSlider
DragSliderValue Left 1

# Set unit type to Inches
LocatePointer UnitMenu ROptionButton
PressMB Btn1
LocatePointer UnitPushB5
ReleaseMB Btn1

# Set tab offset to Relative
LocatePointer OffsetMenu ROptionButton
PressMB Btn1
LocatePointer OffsetPushB1
ReleaseMB Btn1

LocatePointer CreateTabPB
ClickMB Btn1

# #) Select pushbutton \"Draw String\" to display the string with
# tabs included. The new text string will display below the text widget.
# Verify that the tabs in the new text string are inserted at the correct 
# positions and the tabs distances are correct. 
LocatePointer DrawStringPB
ClickMB Btn1
CompareVisual DrawArea1

# #) Select \"Reset Tabs\" to remove the current tab settings.
LocatePointer ResetTabsPB
ClickMB Btn1

# #) Select \"Draw String\" to redisplay the text without any tabs.
LocatePointer DrawStringPB
ClickMB Btn1
CompareVisual DrawArea1

# C)
Continue

# @) A table of XmStrings have been created with tabs and separators inserted.
# When the strings are drawn, they should be displayed in three columns with
# six rows of strings. The first row of strings contains the headings for each
# column,  \"BREADS\", \"SALADS\", and \"SOUPS\". There should be three entries
# in the \"BREADS\" column, four entries in the \"SALADS\" column and
# five entries in the \"SOUPS\" column.


# #) With the \"Tab Options\" set to \"Default Tabs\", click MB1 on the button
# \"Draw Strings\". The strings will be displayed with a default tab 
# of a half inch between each column of strings.
LocatePointer TabOptionsMenu ROptionButton
PressMB Btn1
LocatePointer TabOptionsPushB0
ReleaseMB Btn1
LocatePointer DrawStringPB
ClickMB Btn1
CompareVisual DrawArea1

# C)
Continue

# #) Select the \"Proposed Tabs\" option from the \"Tab Options\" menu.
LocatePointer TabOptionsMenu ROptionButton
PressMB Btn1
LocatePointer TabOptionsPushB1
ReleaseMB Btn1

# #) Specify the unit type used when creating tabs by selecting a type
# from the \"Unit Model\" menu. 
LocatePointer UnitMenu ROptionButton
PressMB Btn1
LocatePointer UnitPushB5
ReleaseMB Btn1

# #) Specify the amount of padding used, based on the selected unit type,
# to separate the columns of strings by setting \"Pad Value\".

# #) Specify the offset model used in creating tabs by selecting an offset
# from the \"Offset Model\" menu.
LocatePointer OffsetMenu ROptionButton
PressMB Btn1
LocatePointer OffsetPushB0
ReleaseMB Btn1

# #) Click MB1 on the \"Draw Strings\" button.
LocatePointer DrawStringPB
ClickMB Btn1


# #) Verify that the strings are displayed in three columns and six rows
# with no overlapping between the rows and strings.
CompareVisual DrawArea1

# C)
Continue

# E)
Exit