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

# @)  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